Satoshi Yoshida <[email protected]> writes:
> Sorry, I fixed some mistakes.
>
> (setq mu-cite-prefix-format '("> "))
[...]
So sorry, fixed again.
(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 "^\\(>[ \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-- ")
)))
--
Satoshi Yoshida
