--- /usr/local/share/emacs/site-lisp/mew/mew-gnus.el Mon Dec 15 10:18:21 1997 +++ ./mew-gnus.el Sun Jan 25 22:04:44 1998 @@ -128,7 +128,11 @@ date (gnus-fetch-field "Date") in-reply-to (mew-header-get-value "Date:") references (mew-header-get-value "Message-ID:") + ref-org (mew-header-get-value "References:") distribution (gnus-fetch-field "Distribution")) + (if (stringp ref-org) + (setq references + (concat references "\n\t" ref-org ))) (switch-to-buffer-other-window (find-file-noselect file)) (mew-draft-rename file) (mew-draft-header subject nil to cc newsgroups in-reply-to references) @@ -138,9 +142,15 @@ (goto-char (point-min)) (search-forward "Newsgroups:") (forward-line 1) - (insert (concat "Distribution: " distribution "\n")))) + (if (stringp distribution) + (insert (concat "Distribution: " distribution "\n") + )) + )) + (insert (concat "X-Newsreader: " gnus-version "\n")) (make-variable-buffer-local 'mew-message-citation-buffer) (setq mew-message-citation-buffer gnus-article-buffer)) + (goto-char (point-max)) + (forward-line -2) ; depends on the signiture inserted (?) (if yank (mew-draft-cite))) (defun mew-gnus-reply-with-citation ()