modifed quoting line(s) function to allow folding on outlook
This commit is contained in:
parent
4ace4eca2c
commit
c114657149
21
conf.org
21
conf.org
|
@ -1774,6 +1774,27 @@ By default the included gnus-dired package does not understan mu4e, so override
|
||||||
mu4e-use-fancy-chars nil)
|
mu4e-use-fancy-chars nil)
|
||||||
#+END_SRC
|
#+END_SRC
|
||||||
*** quoting
|
*** quoting
|
||||||
|
The quote string should enable history tabbing in modern viewers such as outlook and gmail. This is enabled by using 32 underscores followed by the addressing info of the previous message(s).
|
||||||
|
#+BEGIN_SRC emacs-lisp
|
||||||
|
;; necessary for the header macros below
|
||||||
|
(require 'nnheader)
|
||||||
|
|
||||||
|
(defun nd/message-insert-citation-header ()
|
||||||
|
"Insert the header of the reply message."
|
||||||
|
(let* ((h message-reply-headers)
|
||||||
|
(sep "________________________________")
|
||||||
|
(from (concat "From: " (mail-header-from h)))
|
||||||
|
(date (concat "Sent: " (mail-header-date h)))
|
||||||
|
(to (concat "To: " user-full-name))
|
||||||
|
(subj (concat "Subject: " (replace-regexp-in-string
|
||||||
|
"Re: "
|
||||||
|
""
|
||||||
|
(mail-header-subject h)))))
|
||||||
|
(insert (string-join `("" ,sep ,from ,date ,to ,subj "") "\n"))))
|
||||||
|
|
||||||
|
(setq message-citation-line-function 'nd/message-insert-citation-header)
|
||||||
|
#+END_SRC
|
||||||
|
By default the reply string is destroyed if it HTML. Since I only really care about the links when forwarding stuff (these are really the only thing that needs to stay functional in a quoted section) use the html2text command to preserve links while ascii-ifying everything else.
|
||||||
#+BEGIN_SRC emacs-lisp
|
#+BEGIN_SRC emacs-lisp
|
||||||
(setq
|
(setq
|
||||||
mu4e-compose-pre-hook
|
mu4e-compose-pre-hook
|
||||||
|
|
Loading…
Reference in New Issue