Gnus：如何强制将签名放置在回复中引用消息的底部/下方？

发布于 2024-12-20 10:41:09 字数 317 浏览 4 评论 0原文

我使用 Gnus 5.13 发送电子邮件（在 Mac OS X 10.7.2 和 emacs 24 上）。我使用 gnus-posting-styles 条目 (eval (set (make-local-variable 'message-cite-reply-position) 'above)) 来放置回复中消息顶部的点（光标）。这允许我进行顶部回复或内联回复（在我想要回复的消息之间）。不幸的是，上面的条目还将我的签名放在我想要回复的消息的顶部。如果我想在顶部回复，那没问题，但如果我想内联回复，那就错了。如何强制将签名放置在我回复的消息下？

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

人海汹涌 2024-12-27 10:41:09

放弃“message-cite-reply-position”修改，我已将以下内容添加到我的 .gnus.el 文件中，现在在回复电子邮件或新闻帖子时，首先是拉出的消息，然后是我的签名，然后该点位于消息的开头。

(eval-after-load "gnus-msg"
  '(defun gnus-inews-yank-articles (articles)
    (let (beg article yank-string)
      (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)))        -- Original                              
     (message-goto-body)    ;  -- Modified, so point will be moved to beginning of article
     (insert "\n\n")        ;  -- and two empty lines will be added.
     (message-goto-body)))) ;  --

Discarding the 'message-cite-reply-position' modification, I have added the following to my .gnus.el file, and now when replying to an e-mail or news post, first goes the yanked message, then my signature, and the point is placed at the beginning of the message.

(eval-after-load "gnus-msg"
  '(defun gnus-inews-yank-articles (articles)
    (let (beg article yank-string)
      (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)))        -- Original                              
     (message-goto-body)    ;  -- Modified, so point will be moved to beginning of article
     (insert "\n\n")        ;  -- and two empty lines will be added.
     (message-goto-body)))) ;  --

回复收藏 0 原文

~没有更多了~