Re: Strip signature on reply without standard separator

[Satoshi Yoshida]

Satoshi Yoshida <dynamisxar@icloud.com> writes:

> (setq mu-cite-prefix-format '("> "))
[...]
> )))

Sorry, I fixed some mistakes.

(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\\|\\(kind \\|warmest 
\\)?regards\\|respectfully\\|sincerely\\).?[ \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