Emanuel Berg <in...@dataswamp.org> writes: > Satoshi Yoshida wrote: > >> (add-hook 'mu-cite-post-cite-hook >> (lambda nil > > Most people would put it (lambda () ... )
I understand. > If you quote a lambda it is just a list with data: > > '(a b c) > > '(lambda not an anonymous function) > > Eval and you will see, there's no difference in > principle. Lists. Thank you for your assistance. [Summary] Install mu-cite. It's easy from MELPA. And add this to .emacs (autoload 'mu-cite-original "mu-cite" nil t) ;; for all but message-mode ;(add-hook 'mail-citation-hook (function mu-cite-original)) ;; for message-mode only (setq message-cite-function (function mu-cite-original)) Add this to .gnus.el or .emacs (setq mu-cite-prefix-format '("> ")) (setq mu-cite-cited-prefix-regexp "\\(^[^ \t\n<>]+>+[ \t]*\\)") (setq mu-cite-top-format '(from " writes:\n\n")) (add-hook 'mu-cite-post-cite-hook (lambda () (save-excursion (save-excursion (goto-char (point-min)) (replace-regexp "^> >" ">>") (goto-char (point-min)) (replace-regexp "^> -- .*\n\\(>.*\n\\)*" "") (goto-char (point-min)) (replace-regexp "^\\(>[ \t]+\n\\)+> \\(best\ \\( regards\\| wishes\\)?\\|cheers\\|\\(good\\)?bye\\|good luck\ \\|\\(kind \\|warm\\(est\\)? \\)?regards\\|respectfully\\|\ \\(yours \\)?sincerely\\( yours\\)?\\|thank you\\( very much\\)?\ \\|\\(many \\)?thanks\\( in advance\\| very much\\)?\\),[ \t]*\n\ \\(>.*\n\\)*" "") (goto-char (point-min)) (replace-regexp "^\\(>[ \t]+\n\\)+> [ \t]*\ \\(-+[ \t]*\\)?[a-zA-Z]+[ \t]*\n\\(>[ \t]+\n\\)*\n-- " "\n-- ") (goto-char (point-min)) (replace-regexp "^\\(>[> \t]+\n\\)+\n-- " "\n-- ")) (goto-line 1) (delete-blank-lines)))) Referenced: https://melpa.org/#/mu-cite http://roguelife.org/~tsumura/emacs/mu-cite.html https://pc11.5ch.net/test/read.cgi/unix/1114097161/ -- Satoshi Yoshida