From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/14405 Path: main.gmane.org!not-for-mail From: Mark Moll Newsgroups: gmane.emacs.gnus.general Subject: Re: hack of .overview files [take 2] Date: 03 Mar 1998 14:55:42 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.108) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035153600 14725 80.91.224.250 (20 Oct 2002 22:40:00 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:40:00 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id MAA21501 for ; Tue, 3 Mar 1998 12:04:38 -0800 Original-Received: from gizmo.hpc.uh.edu (gizmo.hpc.uh.edu [129.7.102.31]) by xemacs.org (8.8.5/8.8.5) with ESMTP id OAA27879 for ; Tue, 3 Mar 1998 14:00:11 -0600 (CST) Original-Received: from sina.hpc.uh.edu (sina.hpc.uh.edu [129.7.3.5]) by gizmo.hpc.uh.edu (8.7.6/8.7.3) with ESMTP id OAN05035; Tue, 3 Mar 1998 14:34:36 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 03 Mar 1998 13:56:48 -0600 (CST) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by sina.hpc.uh.edu (8.7.3/8.7.3) with SMTP id NAA09933 for ; Tue, 3 Mar 1998 13:56:40 -0600 (CST) Original-Received: (qmail 19929 invoked by uid 504); 3 Mar 1998 19:56:28 -0000 Original-Received: (qmail 19926 invoked from network); 3 Mar 1998 19:56:27 -0000 Original-Received: from gs236.sp.cs.cmu.edu (128.2.213.41) by claymore.vcinet.com with SMTP; 3 Mar 1998 19:56:27 -0000 Original-To: ding@gnus.org X-Face: $92c:Z.SW1(?c'Y(OH8-XA7Q8p&Y>@^o^VYA8|cCXLp}G7z>g:m"@it_Fmv;7_M0SR2T /o4k("Imbj)DjJceO*/0$y^g=)7RrpmL/DA={Abwj{o)D6ChZh_}"pt?N]^q;K;rDnGZFvc} nv)6W<"LP';G~.X&4y0t In-Reply-To: Mark Moll's message of "03 Mar 1998 10:59:28 -0500" Original-Lines: 55 X-Mailer: Quassia Gnus v0.34/XEmacs 20.3 - "Vatican City" Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:14405 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:14405 Okay, here's my second try. This time it looks (hopefully) somewhat less like a hack, but more like a real feature. (Yes, more features is a good thing :-) ). By default the behavior is *not* turned on, you have to set nnheader-nov-uses-to to t. > diff -c nnheader.el.orig nnheader.el *** nnheader.el.orig Sun Mar 1 10:25:55 1998 --- nnheader.el Tue Mar 3 14:47:01 1998 *************** *** 54,59 **** --- 54,67 ---- \(setq nnheader-file-name-translation-alist '((?: . ?_)))") + (defvar nnheader-user-address-regexp (user-full-name) + "*Regexp matching the user's name and/or address as it appears in the + \"From:\" header.") + + (defvar nnheader-nov-uses-to nil + "*If nnheader-nov-uses-to is t, the recipient will be listed in the summary + if the \"From:\" field matches nnheader-user-address-regexp.") + (eval-and-compile (autoload 'nnmail-message-id "nnmail") (autoload 'mail-position-on-field "sendmail") *************** *** 205,212 **** ;; From. (progn (goto-char p) ! (if (search-forward "\nfrom: " nil t) ! (nnheader-header-value) "(nobody)")) ;; Date. (progn (goto-char p) --- 213,228 ---- ;; From. (progn (goto-char p) ! (let (from) ! (setq from (if (search-forward "\nfrom: " nil t) ! (nnheader-header-value) "(nobody)")) ! (cond ((and nnheader-nov-uses-to ! (string-match nnheader-user-address-regexp from)) ! (goto-char p) ! (if (search-forward "\nto: " nil t) ! (concat "To:" (nnheader-header-value)) ! "To:(nobody)")) ! (t from)))) ;; Date. (progn (goto-char p) -- Mark Moll