|
From: | Satoshi Yoshida |
Subject: | Re: Strip signature on reply without standard separator |
Date: | Thu, 11 Aug 2022 15:41:23 +0900 |
User-agent: | Gnus/5.13 (Gnus v5.13) Emacs/28.1 (gnu/linux) |
Satoshi Yoshida <dynamisxar@icloud.com> writes: > I know supercite.el and mu-cite.el too. > But I don't know whether I can customize these package for my purpose. I solved it by customizing mu-cite.el from melpa in reference to http://roguelife.org/~tsumura/emacs/mu-cite.html https://pc11.5ch.net/test/read.cgi/unix/1114097161/ (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 "^\\(> \n\\)+> [ \t]*\\(best\\( regards\\| wishes\\)?\\|cheers\\|\\(good\\)?bye\\|good luck\\|\\(kind \\|warmest \\)?regards\\|respectfully\\|sincerely\\|thank you\\|\\(many \\)?thanks\\( in advance\\)?.?[ \t]*\\)\n\\(> .*\n\\)*" "") (goto-char (point-min)) (replace-regexp "^\\(> \n\\)+> [ \t]*\\(-+[ \t]*\\)?[a-zA-Z]+[ \t]*\n\\(> \n\\)*\n-- " "\n-- ") (goto-char (point-min)) (replace-regexp "^\\(> \n\\)+\n-- " "\n-- ") ))) But I have a concern. When I compose a message, a blank line occurs on biginning of buffer. I can't block it. -- Satoshi Yoshida
[Prev in Thread] | Current Thread | [Next in Thread] |