Re: Strip signature on reply without standard separator

[Satoshi Yoshida]

Satoshi Yoshida <dynamisxar@icloud.com> writes:

> I know supercite.el and mu-cite.el too.
> But I don't know whether I can customize these package for my purpose.

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/

(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
               (goto-char (point-min))
               (replace-regexp "^> >" ">>")
               (goto-char (point-min))
               (replace-regexp "^> -- *\n\\(> .*\n\\)*" "")
               (goto-char (point-min))
               (replace-regexp "^\\(> \n\\)+> [ \t]*\\(best\\( regards\\| 
wishes\\)?\\|cheers\\|\\(good\\)?bye\\|good luck\\|\\(kind \\|warmest 
\\)?regards\\|respectfully\\|sincerely\\|thank you\\|\\(many \\)?thanks\\( in 
advance\\)?.?[ \t]*\\)\n\\(> .*\n\\)*" "")
               (goto-char (point-min))
               (replace-regexp "^\\(> \n\\)+> [ \t]*\\(-+[ \t]*\\)?[a-zA-Z]+[ 
\t]*\n\\(> \n\\)*\n-- " "\n-- ")
               (goto-char (point-min))
               (replace-regexp "^\\(> \n\\)+\n-- " "\n-- ")
)))

But I have a concern. When I compose a message,
a blank line occurs on biginning of buffer. I can't block it.

-- 
Satoshi Yoshida