*** empty log message ***

diff --git a/GNUS-NEWS b/GNUS-NEWS
index 245f98c..c8cad14 100644 (file)
--- a/GNUS-NEWS
+++ b/GNUS-NEWS
@@ -141,7 +141,7 @@ buffer to allow easier treatment.
 *** gnus-uu can view decoded files asynchronously while fetching
 articles. 
 
-    (setq gnus-uu-grabbed-file-functions '`gnus-uu-grab-view)
+    (setq gnus-uu-grabbed-file-functions 'gnus-uu-grab-view)
 
 *** Filling in the article buffer now works properly on cited text. 
 

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 49b36db..75f523a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,31 @@
+Tue Jun  4 18:26:24 1996  Christoph Wedler  <wedler@fmi.uni-passau.de>
+
+       * message-xms.el (message-xmas-find-glyph-directory): Wouldn't use
+       PACKAGE-xmas-glyph-directory even if it is non-nil and a
+       directory.
+       (message-toolbar): Use special ispell function for messages.  Jump
+       to info pages for message composition.
+
+Tue Jun  4 17:12:06 1996  Lars Magne Ingebrigtsen  <larsi@eistla.ifi.uio.no>
+
+       * message.el (rmail): Require.
+
+Tue Jun  4 18:11:46 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * gnus-cus.el (()): Bold group faces.
+
+Tue Jun  4 15:10:20 1996  Lars Magne Ingebrigtsen  <larsi@trym.ifi.uio.no>
+
+       * gnus-cus.el (()): Unbold group faces.
+
+       * custom.el (custom-face-lookup): Make all parameters optional.
+
+       * gnus.el (gnus-thread-total-score): Protect against nil input.
+
 Tue Jun  4 11:11:13 1996  Lars Magne Ingebrigtsen  <larsi@eistla.ifi.uio.no>
 
+       * gnus.el: Gnus v5.2.6 is released.
+
        * gnus.el (gnus-summary-make-local-variables): Set local variables
        correctly.
 

diff --git a/lisp/custom.el b/lisp/custom.el
index 915f8fa..1fa7f1c 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -1477,7 +1477,7 @@ custom-face-\\(.*\\)-\\(.*\\)-\\(.*\\)-\\(.*\\)-\\(.*\\)-\\(.*\\)"
                    (intern (match-string 6 name)))
            value))))
 
-(defun custom-face-lookup (fg bg stipple bold italic underline)
+(defun custom-face-lookup (&optional fg bg stipple bold italic underline)
   "Lookup or create a face with specified attributes."
   (let ((name (intern (format "custom-face-%s-%s-%s-%S-%S-%S"
                              (or fg "default")

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 4fea88d..ec9bc5a 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -594,31 +594,31 @@ ticked: The number of ticked articles.")
               ((= unread 0) . italic)))
            ((eq gnus-background-mode 'dark)
             `(((> unread 200) .
-               ,(custom-face-lookup "Red" nil nil t nil nil))
+               ,(custom-face-lookup "Red" nil nil t))
               ((and (< level 3) (zerop unread)) . 
-               ,(custom-face-lookup "SeaGreen" nil nil t nil nil))
+               ,(custom-face-lookup "SeaGreen" nil nil t))
               ((< level 3) .
-               ,(custom-face-lookup "SpringGreen" nil nil t nil nil))
+               ,(custom-face-lookup "SpringGreen" nil nil t))
               ((zerop unread) . 
-               ,(custom-face-lookup "SteelBlue" nil nil t nil nil))
-              (t . ,(custom-face-lookup "SkyBlue" nil nil t nil nil))))
+               ,(custom-face-lookup "SteelBlue" nil nil t))
+              (t . ,(custom-face-lookup "SkyBlue" nil nil t))))
            (t
             `(((and (not mailp) (<= level 3)) .
-               ,(custom-face-lookup "ForestGreen" nil nil t nil nil))
+               ,(custom-face-lookup "ForestGreen" nil nil t))
               ((and (not mailp) (eq level 4)) .
-               ,(custom-face-lookup "DarkGreen" nil nil t nil nil))
+               ,(custom-face-lookup "DarkGreen" nil nil t))
               ((and (not mailp) (eq level 5)) .
-               ,(custom-face-lookup "Red" nil nil t nil nil))
+               ,(custom-face-lookup "Red" nil nil t))
               ((and mailp (eq level 1)) .
-               ,(custom-face-lookup "DeepPink3" nil nil t nil nil))
+               ,(custom-face-lookup "DeepPink3" nil nil t))
               ((and mailp (eq level 2)) .
-               ,(custom-face-lookup "HotPink3" nil nil t nil nil))
+               ,(custom-face-lookup "HotPink3" nil nil t))
               ((and mailp (eq level 3)) .
-               ,(custom-face-lookup "dark magenta" nil nil t nil nil))
+               ,(custom-face-lookup "dark magenta" nil nil t))
               ((and mailp (eq level 4)) .
-               ,(custom-face-lookup "DeepPink4" nil nil t nil nil))
+               ,(custom-face-lookup "DeepPink4" nil nil t))
               ((and mailp (> level 4)) .
-               ,(custom-face-lookup "DarkOrchid4" nil nil t nil nil))
+               ,(custom-face-lookup "DarkOrchid4" nil nil t))
               ))))
        (data
         ((type . repeat)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index ba6db13..bdb71e0 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -1728,7 +1728,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-number "5.2.6"
+(defconst gnus-version-number "5.2.7"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)
@@ -2096,7 +2096,7 @@ Thank you for your help in stamping out bugs.
       gnus-grouplens-mode)
      ("gnus-vm" gnus-vm-mail-setup)
      ("gnus-vm" :interactive t gnus-summary-save-in-vm
-      gnus-summary-save-article-vm gnus-yank-article))))
+      gnus-summary-save-article-vm))))
 
 \f
 
@@ -8372,12 +8372,15 @@ Unscored articles will be counted as having a score of zero."
 
 (defun gnus-thread-total-score (thread)
   ;;  This function find the total score of THREAD.
-  (if (consp thread)
-      (if (stringp (car thread))
-         (apply gnus-thread-score-function 0
-                (mapcar 'gnus-thread-total-score-1 (cdr thread)))
-       (gnus-thread-total-score-1 thread))
-    (gnus-thread-total-score-1 (list thread))))
+  (cond ((null thread)
+        0)
+       ((consp thread)
+        (if (stringp (car thread))
+            (apply gnus-thread-score-function 0
+                   (mapcar 'gnus-thread-total-score-1 (cdr thread)))
+          (gnus-thread-total-score-1 thread)))
+       (t
+        (gnus-thread-total-score-1 (list thread)))))
 
 (defun gnus-thread-total-score-1 (root)
   ;; This function find the total score of the thread below ROOT.
@@ -14414,7 +14417,7 @@ how much time has lapsed since DATE."
              (prog1
                  (concat (if prev ", " "") (int-to-string
                                             (floor num))
-                         " " (symbol-name (car unit))
+                         " " (symbol-name (car unit)) 
                          (if (> num 1) "s" ""))
                (setq prev t))))
          gnus-article-time-units "")

diff --git a/lisp/message.el b/lisp/message.el
index 03d9c12..b0cc714 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -32,6 +32,7 @@
 (eval-when-compile 
   (require 'cl))
 (require 'mailheader)
+(require 'rmail)
 (require 'nnheader)
 (require 'timezone)
 (require 'easymenu)
@@ -2170,12 +2171,12 @@ Headers already prepared in the buffer are not modified."
   (if message-generate-new-buffers
       (generate-new-buffer-name
        (concat "*" type
-              (if (or to group)
+              (if to
                   (concat " to "
                           (or (car (mail-extract-address-components to))
-                              to)
-                          (if group (concat " on " group) ""))
+                              to) "")
                 "")
+              (if group (concat " on " group) "")
               "*"))
     (format "*%s message*" type)))
 

diff --git a/lisp/messagexmas.el b/lisp/messagexmas.el
index 416d05e..426700c 100644 (file)
--- a/lisp/messagexmas.el
+++ b/lisp/messagexmas.el
@@ -37,28 +37,32 @@ If it is non-nil, it must be a toolbar.  The five legal values are
 `right-toolbar', and `left-toolbar'.")
 
 (defvar message-toolbar 
-  '([message-spell toolbar-ispell t "Spell"]
-    [message-help toolbar-info t "Message help"])
+  '([message-spell ispell-message t "Spell"]
+    [message-help (toolbar-info "message") t "Message help"])
   "The message buffer toolbar.")
 
 (defun message-xmas-find-glyph-directory (&optional package)
   (setq package (or package "message"))
   (let ((path load-path)
-       dir result)
-    ;; We try to find the dir by looking at the load path,
-    ;; stripping away the last component and adding "etc/".
-    (while path
-      (if (and (car path)
-              (file-exists-p
-               (setq dir (concat
-                          (file-name-directory
-                           (directory-file-name (car path)))
-                          "etc/" (or package "message") "/")))
-              (file-directory-p dir))
-         (setq result dir
-               path nil)
-       (setq path (cdr path))))
-    result))
+       (dir (symbol-value
+             (intern-soft (concat package "-xmas-glyph-directory"))))
+       result)
+    (if (and (stringp dir) (file-directory-p dir))
+       dir
+      ;; We try to find the dir by looking at the load path,
+      ;; stripping away the last component and adding "etc/".
+      (while path
+       (if (and (car path)
+                (file-exists-p
+                 (setq dir (concat
+                            (file-name-directory
+                             (directory-file-name (car path)))
+                            "etc/" (or package "message") "/")))
+                (file-directory-p dir))
+           (setq result dir
+                 path nil)
+         (setq path (cdr path))))
+      result)))
 
 (defun message-xmas-setup-toolbar (bar &optional force package)
   (let ((dir (message-xmas-find-glyph-directory package))