From: Lars Magne Ingebrigtsen Date: Tue, 4 Mar 1997 04:36:43 +0000 (+0000) Subject: *** empty log message *** X-Git-Url: https://cgit.sxemacs.org/?a=commitdiff_plain;h=a78451bcd4775eaaeed9ec8249c6c9813be814ad;p=gnus *** empty log message *** --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bd461d459..52c69e063 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,19 @@ +Sat Oct 14 02:07:39 1995 Lars Magne Ingebrigtsen + + * gnus.el (gnus-summary-refer-parent-article): Take a look at the + actual References header. + + * gnus-msg.el (gnus-bug): Wrong number of arguments for + `mail-setup'. + +Fri Oct 13 10:25:49 1995 Lars Ingebrigtsen + + * gnus-msg.el (gnus-mail-reply): Would ignore To headers. + Fri Oct 13 05:58:15 1995 Lars Magne Ingebrigtsen + * gnus.el: 0.8 is released. + * gnus.el (gnus-parse-format): Would totally bug out. Fri Oct 13 01:38:43 1995 Lars Ingebrigtsen diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el index ce122057d..3697d4bef 100644 --- a/lisp/gnus-cache.el +++ b/lisp/gnus-cache.el @@ -38,7 +38,7 @@ (defvar gnus-uncacheable-groups "^nnvirtual" "*Groups that match this regexp will not be cached. -If you want to avoid caching on your nnml groups, you could set this +If you want to avoid caching your nnml groups, you could set this variable to \"^nnml\".") diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 0fa0fb3d3..81dc289d3 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -1527,7 +1527,7 @@ mailer." (setq subject (substring subject (match-end 0)))) (setq subject (concat "Re: " subject)) (setq to (mail-fetch-field "to")) - (setq to (mail-fetch-field "cc")) + (setq cc (mail-fetch-field "cc")) (setq reply-to (mail-fetch-field "reply-to")) (setq references (mail-fetch-field "references")) (setq message-id (mail-fetch-field "message-id")) @@ -2018,7 +2018,7 @@ If YANK is non-nil, include the original article." (pop-to-buffer "*Gnus Bug*") (erase-buffer) (mail-mode) - (mail-setup 'new gnus-maintainer) + (mail-setup gnus-maintainer nil nil nil nil nil) (auto-save-mode auto-save-default) (make-local-variable 'gnus-prev-winconf) (setq gnus-prev-winconf winconf) diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el index 0b9024b75..e65bb2790 100644 --- a/lisp/gnus-xmas.el +++ b/lisp/gnus-xmas.el @@ -350,7 +350,8 @@ pounce directly on the real variables themselves.") (file-name-directory (directory-file-name (car path))) "etc/")) (if (and (file-exists-p dir) - (file-directory-p dir)) + (file-directory-p dir) + (file-exists-p (concat dir "gnus-group-exit-icon-up.xpm"))) (setq gnus-xmas-glyph-directory dir path nil) (setq path (cdr path)))) @@ -454,7 +455,7 @@ If it is non-nil, it must be a toolbar. The five legal values are "The summary buffer toolbar.") (defun gnus-xmas-setup-toolbar (bar &optional force) - (let ((dir (file-name-as-directory (gnus-xmas-find-glyph-directory))) + (let ((dir (gnus-xmas-find-glyph-directory)) icon up down disabled name) (if (not dir) () diff --git a/lisp/gnus.el b/lisp/gnus.el index 0e00b16be..58e0635bf 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1476,7 +1476,7 @@ variable (string, integer, character, etc).") "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") -(defconst gnus-version "September Gnus v0.8" +(defconst gnus-version "September Gnus v0.9" "Version number for this version of Gnus.") (defvar gnus-info-nodes @@ -3683,7 +3683,6 @@ This will also compile the user-defined format specs." (insert "(setq gnus-old-specs '" (prin1-to-string fs) "\n") - (debug) (write-region (point-min) (point-max) file nil 'silent) (byte-compile-file file) (rename-file @@ -9160,8 +9159,26 @@ The difference between N and the number of articles fetched is returned." (while (and (> n 0) - (let ((ref (gnus-parent-id - (mail-header-references (gnus-summary-article-header))))) + (let* ((header (gnus-summary-article-header)) + (ref + ;; If we try to find the parent of the currently + ;; displayed article, then we take a look at the actual + ;; References header, since this is slightly more + ;; reliable than the References field we got from the + ;; server. + (if (and (eq (mail-header-number header) + (cdr gnus-article-current)) + (equal gnus-newsgroup-name + (car gnus-article-current))) + (save-excursion + (set-buffer gnus-original-article-buffer) + (gnus-narrow-to-headers) + (prog1 + (mail-fetch-field "references") + (widen))) + ;; It's not the current article, so we take a bet on + ;; the value we got from the server. + (mail-header-references header)))) (if ref (or (gnus-summary-refer-article ref) (gnus-message 1 "Couldn't find parent")) @@ -9211,8 +9228,7 @@ Return how many articles were fetched." number tmp-buf) (and gnus-refer-article-method (gnus-check-server gnus-refer-article-method)) - (when (setq number - (gnus-summary-insert-subject message-id)) + (when (setq number (gnus-summary-insert-subject message-id)) (gnus-summary-select-article nil nil nil number))))))) (defun gnus-summary-enter-digest-group () diff --git a/lisp/nnmail.el b/lisp/nnmail.el index 6e4dd241c..7ddb1c86e 100644 --- a/lisp/nnmail.el +++ b/lisp/nnmail.el @@ -28,6 +28,7 @@ (require 'rmail) (require 'timezone) (require 'sendmail) +(eval-when-compile (require 'cl)) (defvar nnmail-split-methods '(("mail.misc" ""))