Satoshi Yoshida wrote:
> Fixed.
Hm, "over-engineering" isn't quite the right word here ... ?
> (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 ()
Don't quote lambdas ...
> (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))))
HTH, yours truly
--
underground experts united
https://dataswamp.org/~incal
