在摘要模式下,当我按R代表gnus-summary-reply-with-original或按F代表gnus-summary-followup-with-original时,我的签名会插入到原始消息文本下方。
如何告诉gnus在邮件的最上方,原始报价的文本之前插入我的签名?
最佳答案
看来这不是Gnus内置的选项(自v5.10.8起),因此您必须重新定义其中一个内置函数,如下所示:
(eval-after-load "gnus-msg"
(defun gnus-inews-yank-articles (articles)
(let (beg article yank-string)
(goto-char (point-max)) ; put articles after signature
(insert "\n") ; and one extra newline
; was this (message-goto-body)
(while (setq article (pop articles))
(when (listp article)
(setq yank-string (nth 1 article)
article (nth 0 article)))
(save-window-excursion
(set-buffer gnus-summary-buffer)
(gnus-summary-select-article nil nil nil article)
(gnus-summary-remove-process-mark article))
(gnus-copy-article-buffer nil yank-string)
(let ((message-reply-buffer gnus-article-copy)
(message-reply-headers
;; The headers are decoded.
(with-current-buffer gnus-article-copy
(save-restriction
(nnheader-narrow-to-headers)
(nnheader-parse-naked-head)))))
(message-yank-original)
(setq beg (or beg (mark t))))
(when articles
(insert "\n")))
(push-mark)
(goto-char beg))))
我以
'gnus-inews-yank-articles
形式包装了eval-after-load
的新定义,以便在适当的时间对其进行定义。显然,如果要允许自定义,请创建一个变量并编写适当的if语句。关于email - 牛羚回复顶部签名,我们在Stack Overflow上找到一个类似的问题:https://stackoverflow.com/questions/1050968/