[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Strip signature on reply without standard separator [solved]
From: |
Satoshi Yoshida |
Subject: |
Re: Strip signature on reply without standard separator [solved] |
Date: |
Thu, 25 Aug 2022 12:04:34 +0900 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/28.1 (gnu/linux) |
Emanuel Berg <incal@dataswamp.org> writes:
> Satoshi Yoshida wrote:
>
>> (add-hook 'mu-cite-post-cite-hook
>> (lambda nil
>
> Most people would put it (lambda () ... )
I understand.
> If you quote a lambda it is just a list with data:
>
> '(a b c)
>
> '(lambda not an anonymous function)
>
> Eval and you will see, there's no difference in
> principle. Lists.
Thank you for your assistance.
[Summary]
Install mu-cite. It's easy from MELPA. And add this to .emacs
(autoload 'mu-cite-original "mu-cite" nil t)
;; for all but message-mode
;(add-hook 'mail-citation-hook (function mu-cite-original))
;; for message-mode only
(setq message-cite-function (function mu-cite-original))
Add this to .gnus.el or .emacs
(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
(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))))
Referenced:
https://melpa.org/#/mu-cite
http://roguelife.org/~tsumura/emacs/mu-cite.html
https://pc11.5ch.net/test/read.cgi/unix/1114097161/
--
Satoshi Yoshida
- Re: Strip signature on reply without standard separator, (continued)
- Re: Strip signature on reply without standard separator, Satoshi Yoshida, 2022/08/11
- Re: Strip signature on reply without standard separator, Satoshi Yoshida, 2022/08/11
- Re: Strip signature on reply without standard separator, Satoshi Yoshida, 2022/08/11
- Re: Strip signature on reply without standard separator, Satoshi Yoshida, 2022/08/23
- Re: Strip signature on reply without standard separator, Emanuel Berg, 2022/08/23
- Re: Strip signature on reply without standard separator, Satoshi Yoshida, 2022/08/23
- Re: Strip signature on reply without standard separator, Emanuel Berg, 2022/08/24
- Re: Strip signature on reply without standard separator, Michael Heerdegen, 2022/08/24
- Re: Strip signature on reply without standard separator, Satoshi Yoshida, 2022/08/24
- Re: Strip signature on reply without standard separator [solved],
Satoshi Yoshida <=
- Re: Strip signature on reply without standard separator [solved], Emanuel Berg, 2022/08/25
- Re: Strip signature on reply without standard separator, Satoshi Yoshida, 2022/08/27
- Re: Strip signature on reply without standard separator, Satoshi Yoshida, 2022/08/27