From 779d4a8a76733388cdff009c5708e361b8911b62 Mon Sep 17 00:00:00 2001
From: Lars Magne Ingebrigtsen <larsi@gnus.org>
Date: Sun, 30 Dec 2001 10:02:30 +0000
Subject: [PATCH] * 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.
---
 lisp/ChangeLog     |  6 ++++++
 lisp/gnus-art.el   | 19 +++++++++++++++++--
 lisp/gnus-picon.el |  3 +++
 3 files changed, 26 insertions(+), 2 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 07eec1681..9d87f4190 100644
--- 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 0218bee62..3235a055c 100644
--- 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 c1bcffda2..35652f3a7 100644
--- 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
-- 
2.34.1