From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/60745 Path: news.gmane.org!not-for-mail From: Karl Chen Newsgroups: gmane.emacs.gnus.general Subject: "@" for addressed-to-you in summary line Date: Thu, 11 Aug 2005 00:14:11 -0700 Message-ID: Reply-To: quarl+dated+1124176130.893ea2@nospam.quarl.org NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1123767242 3242 80.91.229.2 (11 Aug 2005 13:34:02 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Thu, 11 Aug 2005 13:34:02 +0000 (UTC) Original-X-From: ding-owner+M9277=ding+2Daccount=gmane.org@lists.math.uh.edu Thu Aug 11 15:33:59 2005 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1E3DA7-0000la-MZ for ding-account@gmane.org; Thu, 11 Aug 2005 15:32:00 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1E3DA3-00035Z-01 for ding-account@gmane.org; Thu, 11 Aug 2005 08:31:56 -0500 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1E37It-0002Ct-00 for ding@lists.math.uh.edu; Thu, 11 Aug 2005 02:16:39 -0500 Original-Received: from quimby.gnus.org ([80.91.224.244]) by util2.math.uh.edu with esmtp (Exim 4.30) id 1E37Is-0008Id-IE for ding@lists.math.uh.edu; Thu, 11 Aug 2005 02:16:38 -0500 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1E36Mn-0006F3-00 for ; Thu, 11 Aug 2005 08:16:37 +0200 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1E37HW-0005wE-3I for ding@gnus.org; Thu, 11 Aug 2005 09:15:14 +0200 Original-Received: from quack.cs.berkeley.edu ([128.32.132.234]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 11 Aug 2005 09:15:14 +0200 Original-Received: from quarl by quack.cs.berkeley.edu with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 11 Aug 2005 09:15:14 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-To: ding@gnus.org Original-Lines: 34 Original-X-Complaints-To: usenet@sea.gmane.org X-Gmane-NNTP-Posting-Host: quack.cs.berkeley.edu X-Quack-Archive: 1 Gmane-From: 1 User-Agent: Gnus/5.11 (Gnus v5.11) Emacs/22.0.50 (gnu/linux) Cancel-Lock: sha1:gazEnlu2DpptsV5SwF6Ndi3Ve98= X-Spam-Score: -4.9 (----) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: news.gmane.org gmane.emacs.gnus.general:60745 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:60745 I've been using the following code successfully for over a year to mark mail addressed to me with a "@". This is the same as the "+" character used by pine and mutt. To use add "%u+" to gnus-summary-line-format. I hope someone finds this useful. Something similar is suitable for inclusion in Gnus. (setq gnus-extra-headers '(To Cc Newsgroups Original-To)) (defun kc-mail-header-recipients (header) "Returns string of recipients extracted from To: and Cc: headers." (mapconcat (lambda (h) (gnus-extra-header h header)) '(To Cc Original-To) ", ")) (defvar kc-gnus-interesting-recipients nil "*Regexp of addresses for which to mark \"@\" in summary buffer.") (defun kc-gnus-interesting-recipients-p (to) "Returns non-nil if any string in TO is \"interesting\". A string is interesting if it is matched by `kc-gnus-interesting-recipients'" (and kc-gnus-interesting-recipients to (string-match kc-gnus-interesting-recipients to))) (defun gnus-user-format-function-+ (header) (if (kc-gnus-interesting-recipients-p (kc-mail-header-recipients header)) "@" " ")) -- Karl 2005-08-11 00:08