Re: Strip signature on reply without standard separator

[Emanuel Berg]

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