From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/46673
Path: main.gmane.org!not-for-mail
From: Katsumi Yamaoka <yamaoka@jpl.org>
Newsgroups: gmane.emacs.gnus.general
Subject: Re: split banners of free mail servers
Date: Tue, 24 Sep 2002 18:59:26 +0900
Organization: Emacsen advocacy group
Sender: owner-ding@hpc.uh.edu
Message-ID: <yotlwupbpv29.fsf@jpl.org>
References: <almk4k$vka$1@quimby.gnus.org>
	<877khbzpxn.fsf@pine.kuee.kyoto-u.ac.jp>
NNTP-Posting-Host: localhost.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Trace: main.gmane.org 1032861693 22760 127.0.0.1 (24 Sep 2002 10:01:33 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Tue, 24 Sep 2002 10:01:33 +0000 (UTC)
Cc: ding@gnus.org
Return-path: <owner-ding@hpc.uh.edu>
Original-Received: from malifon.math.uh.edu ([129.7.128.13])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 17tmVX-0005ux-00
	for <ding-account@gmane.org>; Tue, 24 Sep 2002 12:01:31 +0200
Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists)
	by malifon.math.uh.edu with esmtp (Exim 3.20 #1)
	id 17tmUR-0003Fj-00; Tue, 24 Sep 2002 05:00:23 -0500
Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 24 Sep 2002 05:01:02 -0500 (CDT)
Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66])
	by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id FAA10229
	for <ding@hpc.uh.edu>; Tue, 24 Sep 2002 05:00:50 -0500 (CDT)
Original-Received: (qmail 17539 invoked by alias); 24 Sep 2002 10:00:04 -0000
Original-Received: (qmail 17534 invoked from network); 24 Sep 2002 10:00:04 -0000
Original-Received: from unknown (HELO mars.web-hosting.com) (207.228.244.150)
  by gnus.org with SMTP; 24 Sep 2002 10:00:04 -0000
Original-Received: from localhost ([207.228.245.242])
	by mars.web-hosting.com (8.11.1/8.11.1) with ESMTP id g8OA02X07854;
	Tue, 24 Sep 2002 06:00:02 -0400 (EDT)
Original-To: TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp>
User-Agent: Gnus/5.090008 (Oort Gnus v0.08) XEmacs/21.4 (Informed
 Management, sparc-sun-solaris2.6)
X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk
 B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw=
 L&i*6&(
Cancel-Lock: sha1:lpeMoTrbLRE8xdXR+o/EcFjDFVE=
X-Hashcash: 020924:tsuchiya@pine.kuee.kyoto-u.ac.jp:8e9227804804d758
X-Hashcash: 020924:ding@gnus.org:ee331b58dd437e69
Precedence: list
X-Majordomo: 1.94.jlt7
Xref: main.gmane.org gmane.emacs.gnus.general:46673
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:46673

>>>>> In <877khbzpxn.fsf@pine.kuee.kyoto-u.ac.jp>
>>>>>	TSUCHIYA Masatoshi <tsuchiya@pine.kuee.kyoto-u.ac.jp> wrote:

> I have noticed that this change causes a wrong-type-argument error
> when a message including no from header is displayed.  In order to
> avoid this error, I propose the following change.

> 2002-09-24  TSUCHIYA Masatoshi  <tsuchiya@namazu.org>

>         * gnus-art.el (article-strip-banner): Check the existence of
>         from header.

Thanks.  I've modified it as follows:

	  (setq banner
		(let ((from (save-restriction
			      (widen)
			      (article-narrow-to-head)
			      (mail-fetch-field "from"))))
		  (when (and from
			     (setq from
				   (caar (mail-header-parse-addresses from))))
		    (catch 'found
		      (dolist (pair gnus-article-address-banner-alist)
			(when (string-match (car pair) from)
			  (throw 'found (cdr pair)))))))))
-- 
Katsumi Yamaoka <yamaoka@jpl.org>