*** empty log message ***

[gnus] / lisp / gnus-picon.el

diff --git a/lisp/gnus-picon.el b/lisp/gnus-picon.el
index 49e57ee..78e6a50 100644 (file)
--- a/lisp/gnus-picon.el
+++ b/lisp/gnus-picon.el
@@ -1,5 +1,5 @@
 ;;; gnus-picon.el --- displaying pretty icons in Gnus
-;; Copyright (C) 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1996,97 Free Software Foundation, Inc.
 
 ;; Author: Wes Hardaker <hardaker@ece.ucdavis.edu>
 ;; Keywords: news xpm annotation glyph faces
@@ -29,6 +29,8 @@
 (require 'xpm)
 (require 'annotations)
 (require 'custom)
+(require 'gnus-art)
+(require 'gnus-win)
 
 (defgroup picons nil
   "Show pictures of people, domains, and newsgroups (XEmacs).
@@ -44,7 +46,8 @@ also add gnus-article-display-picons to gnus-article-display-hook."
   :group 'picons)
 
 (defcustom gnus-picons-display-where 'picons
-  "Where to display the group and article icons."
+  "Where to display the group and article icons.
+Legal values are `article' and `picons'."
   :type '(choice symbol string)
   :group 'picons)
 
@@ -381,7 +384,7 @@ To use:  (setq gnus-article-x-face-command 'gnus-picons-display-x-face)"
          (setq bar nil)))
       (setq first t))
     (when (and addrs domainp)
-      (let ((it (mapconcat 'downcase addrs ".")))
+      (let ((it (mapconcat 'downcase (nreverse addrs) ".")))
        (make-annotation 
         (if first (concat (if (not rightp) ".") it (if rightp ".")) it) 
         (point) 'text nil nil nil rightp)))