*** empty log message ***

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9c11ee8..bdacd26 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,18 @@
+Wed Jun  5 20:22:48 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * message.el (message-setup): Add Mailcrypt magic.
+
+Wed Jun  5 18:01:58 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>
+
+       * gnus-cus.el (()): New colors.
+
+       * gnus-xmas.el (gnus-xmas-group-startup-message): Would bug out
+       when compiled without XPM support.
+
 Wed Jun  5 17:17:00 1996  Lars Magne Ingebrigtsen  <larsi@trym.ifi.uio.no>
 
+       * gnus.el: Gnus v5.2.8 is released.
+
        * nndoc.el (nndoc-type-alist): New babyl head begin.
        (nndoc-babyl-head-begin): New function.
 

diff --git a/lisp/gnus-cus.el b/lisp/gnus-cus.el
index 1d77966..9682250 100644 (file)
--- a/lisp/gnus-cus.el
+++ b/lisp/gnus-cus.el
@@ -596,15 +596,23 @@ ticked: The number of ticked articles.")
             '((mailp . bold)
               ((= unread 0) . italic)))
            ((eq gnus-background-mode 'dark)
-            `(((> unread 200) .
-               ,(custom-face-lookup "Red" nil nil t))
-              ((and (< level 3) (zerop unread)) . 
-               ,(custom-face-lookup "SeaGreen" nil nil t))
-              ((< level 3) .
-               ,(custom-face-lookup "SpringGreen" nil nil t))
-              ((zerop unread) . 
-               ,(custom-face-lookup "SteelBlue" nil nil t))
-              (t . ,(custom-face-lookup "SkyBlue" nil nil t))))
+            `(((and (not mailp) (eq level 1)) .
+               ,(custom-face-lookup "LemonChiffon1" nil nil t))
+              ((and (not mailp) (eq level 2)) .
+               ,(custom-face-lookup "LemonChiffon2" nil nil t))
+              ((and (not mailp) (eq level 3)) .
+               ,(custom-face-lookup "LemonChiffon3" nil nil t))
+              ((and (not mailp) (>= level 4)) .
+               ,(custom-face-lookup "LemonChiffon4" nil nil t))
+              ((and mailp (eq level 1)) .
+               ,(custom-face-lookup "aquamarine1" nil nil t))
+              ((and mailp (eq level 2)) .
+               ,(custom-face-lookup "aquamarine2" nil nil t))
+              ((and mailp (eq level 3)) .
+               ,(custom-face-lookup "aquamarine3" nil nil t))
+              ((and mailp (>= level 4)) .
+               ,(custom-face-lookup "aquamarine4" nil nil t))
+              ))
            (t
             `(((and (not mailp) (<= level 3)) .
                ,(custom-face-lookup "ForestGreen" nil nil t))

diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el
index 232f215..3ef91e2 100644 (file)
--- a/lisp/gnus-xmas.el
+++ b/lisp/gnus-xmas.el
@@ -510,9 +510,10 @@ pounce directly on the real variables themselves.")
                    (file-name-as-directory gnus-xmas-glyph-directory)
                    "gnus.xpm")))
        (xpm-color-symbols 
-        (append `(("thing" ,(car gnus-xmas-logo-colors))
-                  ("shadow" ,(cadr gnus-xmas-logo-colors)))
-                xpm-color-symbols)))
+        (and (featurep 'xpm)
+             (append `(("thing" ,(car gnus-xmas-logo-colors))
+                       ("shadow" ,(cadr gnus-xmas-logo-colors)))
+                     xpm-color-symbols))))
     (if (and (featurep 'xpm)
             (not (equal (device-type) 'tty))
             logo

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 543cc17..c2610ea 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.8"
+(defconst gnus-version-number "5.2.9"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Gnus v%s" gnus-version-number)

diff --git a/lisp/message.el b/lisp/message.el
index e8e7236..f361ebf 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -2218,6 +2218,11 @@ Headers already prepared in the buffer are not modified."
          (nconc message-buffer-list (list (current-buffer))))))
 
 (defun message-setup (headers &optional replybuffer actions)
+  (when (and (boundp 'mc-modes-alist)
+            (not (assq 'message-mode mc-modes-alist)))
+    (push '(message-mode (encrypt . mc-encrypt-message)
+                        (sign . mc-sign-message))
+         mc-modes-alist))
   (when actions
     (setq message-send-actions actions))
   (setq message-reply-buffer replybuffer)

diff --git a/texi/ChangeLog b/texi/ChangeLog
index abb42c7..effebfb 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,7 @@
+Wed Jun  5 20:25:17 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+
+       * message.texi (Message Buffers): Add menu entry.
+
 Wed Jun  5 09:38:28 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
 
        * message.texi (News Headers): Addition.

diff --git a/texi/message.texi b/texi/message.texi
index f195546..7763da9 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -554,6 +554,7 @@ Kill the message buffer and exit (@code{message-kill-buffer}).
 * News Variables::              Other news variables.
 * Various Message Variables::   Other message variables.
 * Sending Variables::           Variables for sending.
+* Message Buffers::             How Message names its buffers.
 * Message Actions::             Actions to be performed when exiting.
 @end menu