Re: Strip signature on reply without standard separator

[Satoshi Yoshida <dynamisxar@icloud.com>]

Satoshi Yoshida <dynamisxar@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