Gnus: Как заставить подпись помещаться внизу / под цитируемыми сообщениями в ответах? - PullRequest
Новая
       17

Gnus: Как заставить подпись помещаться внизу / под цитируемыми сообщениями в ответах?

2 голосов
/ 09 декабря 2011

Я использую Gnus 5.13 для электронной почты (в Mac OS X 10.7.2 с emacs 24). Я использую gnus-posting-styles запись (eval (set (make-local-variable 'message-cite-reply-position) 'above)), чтобы поместить точку (курсор) поверх сообщения в ответах. Это позволяет мне либо топ-ответить, либо отвечать в строке (между сообщениями, на которые я хотел бы ответить). К сожалению, вышеупомянутая запись также помещает мою подпись поверх сообщения, на которое я хотел бы ответить. Это нормально, если я хочу ответить сверху, но это неправильно, если я хочу ответить в строке. Как заставить подпись поставить под сообщением, на которое я отвечаю?

1 Ответ

1 голос
/ 10 декабря 2011

Отказавшись от модификации '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)))) ;  --
...