Satoshi Yoshida <dynamis...@icloud.com> writes: > I solved it by customizing mu-cite.el from melpa in reference to > http://roguelife.org/~tsumura/emacs/mu-cite.html > https://pc11.5ch.net/test/read.cgi/unix/1114097161/
[...] > But I have a concern. When I compose a message, > a blank line occurs on biginning of buffer. I can't block it. Fixed. (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)))) -- Satoshi Yoshida