我使用最新的emacs客户端撰写和阅读我的电子邮件。 (它们通过msmtp
发送,并使用mbsync
拉取。)
我希望将所有新创建的邮件格式化为format=flowed
。我可以在互联网上找到这个问题的所有答案都是指Gnus。
是否可以使用notmuch-message激活此功能,或者如何通过elisp添加它?
答案 0 :(得分:1)
以下作品:
def create
case route_to params
when :cat
# create a cat
when :dog
# update a dog
end
end
.
.
.
private
def route_to params
params[:route_to].keys.first.to_sym
end
无需使用Gnus发送邮件。
答案 1 :(得分:0)
我写了一些自定义的elisp来做到这一点:
(defun as-format-as-flowed-text ()
"Format the buffer as flowed text according to RFC 2646.
This ensures that appropriate lines should be terminated with a
single space, and that \"> \" quoting prefixes are replaced with
\">\". Operates on the current region if active, otherwise on
the whole buffer."
(interactive)
(let ((start (if (use-region-p) (region-beginning) (point-min)))
(end (if (use-region-p) (region-end) (point-max))))
(save-excursion
(goto-char start)
;; Ensure appropriate lines end with a space
(while (re-search-forward "^\\(>+ ?\\)?\\S-.*\\S-$" end t)
(replace-match "\\& " t))
;; Replace "> " quoting prefixes with ">"
(goto-char start)
(let ((eol)
(eolm (make-marker)))
(while (setq eol (re-search-forward "^>.*" end t))
(set-marker eolm eol)
(goto-char (match-beginning 0))
(while (looking-at ">")
(if (looking-at "> ")
(replace-match ">")
(forward-char)))
(goto-char (marker-position eolm)))))))
(bind-key "M-s M-m" 'as-format-as-flowed-text)
(你可以找到the permanent home for this here。我非常确定它可以写得更优雅;非常欢迎提出建议甚至拉取请求。)
写完之后几分钟,我在gnus中发现了format=flowed
的一定数量的原生支持。不幸的是,在撰写本文时,该功能似乎不能立即在gnus之外重复使用。
我刚刚创建了https://www.emacswiki.org/emacs/FormatFlowed作为中央门户网站,以便尝试在一个地方收集有关此主题的信息。