* gnus-art.el (gnus-body-separator-face): New variable.

(gnus-article-treat-body-boundary): Use a blank, colored line.

* gnus-picon.el (gnus-picon-find-face): Look into misc/MISC as
well.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07eec16..9d87f41 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,11 @@
 2001-12-30  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
+       * gnus-art.el (gnus-body-separator-face): New variable.
+       (gnus-article-treat-body-boundary): Use a blank, colored line. 
+
+       * gnus-picon.el (gnus-picon-find-face): Look into misc/MISC as
+       well. 
+
        * gnus-art.el (gnus-treat-body-boundary): New variable.
        (gnus-article-treat-unfold-headers): Use helper macro.
        (gnus-article-treat-body-boundary): New command.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 0218bee..3235a05 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -362,6 +362,19 @@ Esample: (_/*word*/_)."
   "Face used for displaying highlighted words."
   :group 'gnus-article-emphasis)
 
+(defface gnus-body-separator-face
+  '((((class color)
+      (background dark))
+     (:background "white")
+     (:foreground "black"))
+    (((class color)
+      (background light))
+     (:background "black")
+     (:foreground "white"))
+    (t
+     ()))
+  "Face for the body separator.")
+
 (defcustom gnus-article-time-format "%a, %b %d %Y %T %Z"
   "Format for display of Date headers in article bodies.
 See `format-time-string' for the possible values.
@@ -1607,8 +1620,10 @@ unfolded."
   (interactive)
   (gnus-with-article-headers
     (goto-char (point-max))
-    (insert (make-string (1- (window-width)) ?_)
-           "\n")))
+    (insert (make-string (1- (window-width)) ? )
+           "\n")
+    (put-text-property (point) (progn (forward-line -1) (point))
+                      'face 'gnus-body-separator-face)))
 
 (defun article-fill-long-lines ()
   "Fill lines that are wider than the window width."

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index c1bcffd..35652f3 100644 (file)
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -112,6 +112,9 @@ List of pairs (KEY . GLYPH) where KEY is either a filename or an URL.")
       (while (and (not found)
                  (setq directory (pop directories)))
        (setq base (expand-file-name directory database))
+       ;; Kludge to search misc/MISC for users.
+       (when (string= directory "misc")
+         (setq address '("MISC")))
        (while (and (not found)
                    address)
          (setq found (gnus-picon-find-image