如何使用' format = flowed'发送消息?与没有消息的客户端?

时间:2016-12-23 10:10:30

标签: email emacs

我使用最新的emacs客户端撰写和阅读我的电子邮件。 (它们通过msmtp发送,并使用mbsync拉取。)

我希望将所有新创建的邮件格式化为format=flowed。我可以在互联网上找到这个问题的所有答案都是指Gnus。

是否可以使用notmuch-message激活此功能,或者如何通过elisp添加它?

2 个答案:

答案 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作为中央门户网站,以便尝试在一个地方收集有关此主题的信息。