Re: Strip signature on reply without standard separator

[Emanuel Berg]

Satoshi Yoshida wrote:

> Add to .emacs
>
> (autoload 'mu-cite-original "mu-cite" nil t)
> (setq message-cite-function #'mu-cite-original)
>
> Add to .gnus.el
>
> (setq mu-cite-prefix-format '("> "))
> (setq mu-cite-cited-prefix-regexp "\\(^[^[:blank:]\n<>]+>+[[:blank:]]*\
> \\)")
> (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 "^\n-- \n\\(.*\n\\)*" "")
>               (goto-char (point-min))
>               (replace-regexp "^\\([^[:blank:]\n<>]+>.*\\)" "> \\1")
>               (goto-char (point-min))
>               (replace-regexp "^\\([^\n>].+\n\n\\)\\(>[[:blank:]]+\n\
> \\)+" "\\1")
>               (goto-char (point-min))
>               (replace-regexp "^> >" ">>")
>               (goto-char (point-min))
>               (replace-regexp "^> -- .*\n\\(>.*\n\\)*" "")
>               (goto-char (point-min))
>               (replace-regexp "^\\(>[[:blank:]]+\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\\)?\
> \\),[[:blank:]]*\n\\(>.*\n\\)*" "")
>               (goto-char (point-min))
>               (replace-regexp "^\\(>[[:blank:]]+\n\\)+> [[:blank:]]*\
> \\(-+[[:blank:]]*\\)?[[:alpha:]]+[[:blank:]]*\n\\(>[[:blank:]]+\n\
> \\)*\\'" "")
>               (goto-char (point-min))
>               (replace-regexp "^\\(>[>[:blank:]]+\n\\)+\\'" "")
>               (ignore-errors
>                 (goto-char (point-max))
>                 (insert-file-contents "~/.signature")
>                 (insert "\n-- \n"))
>               (goto-line 1)
>               (delete-blank-lines)
>               (set-window-start () 1))))

For modular, idiomatic Elisp the TODO list would be:

1. Split into functions with names that explain what they do.

2. Instead of `replace-regexp', use

   (while (re-search-forward RE nil t)
     (replace-match STR) )

See the docstrings for those three functions.

-- 
underground experts united
https://dataswamp.org/~incal