Re: display picons _and_ textual address

[Wes Hardaker <wes@hardakers.net>]

[-- Attachment #1: Type: text/plain, Size: 646 bytes --]

>>>>> On Tue, 02 Mar 2004 20:57:48 +0100, Reiner Steib <4.uce.03.r.s@nurfuerspam.de> said:

Reiner> The patch seems to be incomplete. It ends in the middle of this hunk:

Odd.

Re-diffed and resending.

cvs piped through programs occasionally truncates stuff for me.  Never
figured out why.  Probably a queuing problem.  I redirected to a file,
and that has never truncated for me so I'm confused.  This file,
however, looks complete.  Which means if it doesn't come through ok
then its a gnus problem (much worse!)

-- 
"In the bathtub of history the truth is harder to hold than the soap,
 and much more difficult to find."  -- Terry Pratchett

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: picons.patch --]
[-- Type: text/x-patch, Size: 998 bytes --]

Index: gnus-picon.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/gnus-picon.el,v
retrieving revision 7.2
diff -u -r7.2 gnus-picon.el
--- gnus-picon.el	5 Feb 2004 02:42:26 -0000	7.2
+++ gnus-picon.el	2 Mar 2004 20:29:31 -0000
@@ -74,6 +74,11 @@
   :type '(repeat string)
   :group 'gnus-picon)
 
+(defcustom gnus-picon-replace-text t
+  "*Replace text with the picons if t, or just insert next to them if nil."
+  :type 'boolean
+  :group 'gnus-picon)
+
 (defface gnus-picon-xbm-face '((t (:foreground "black" :background "white")))
   "Face to show xbm picon in."
   :group 'gnus-picon)
@@ -194,7 +199,8 @@
 	  (gnus-article-goto-header header)
 	  (mail-header-narrow-to-field)
 	  (when (search-forward address nil t)
-	    (delete-region (match-beginning 0) (match-end 0))
+	    (if gnus-picon-replace-text
+		(delete-region (match-beginning 0) (match-end 0)))
 	    (setq point (point))
 	    (while spec
 	      (goto-char point)