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

Question

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

Answer 1

Отказавшись от модификации 'message-cite-reply-position', я добавил следующее к своему файлу.gnus.el, и теперь, отвечая на сообщение электронной почты или новостную рассылку, сначала идет сообщение с выдергиванием, затем моя подпись и точка помещается в начале сообщения.

(eval-after-load "gnus-msg" '(defun gnus-inews-yank-article (article) (let (начальная статья 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
          (установить-буфер 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 ((сообщение-ответ-буфер gnus-article-copy) (сообщение-ответ-заголовки;; Заголовки декодируются.                                                                                                                                               
               (With-current-buffer gnus-article-copy (ограничение-сохранение (nnheader-узкий-к-заголовкам)
                   (nnheader-parse-naked-head)))))
          (message-yank-original)
          (setq beg (или beg (пометить t)))) (когда статьи (вставить "\n")))
      (push-mark);      (goto-char beg)))        - оригинал (message-goto-body);  - Изменено, поэтому точка будет перемещена в начало статьи (вставить "\n\n");  - и будут добавлены две пустые строки.                                                                                                                                               
               (Message-goto-body))));  -