From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/62417 Path: news.gmane.org!not-for-mail From: Reiner Steib Newsgroups: gmane.emacs.gnus.general Subject: gnus-summary-from-or-to-or-newsgroups (was: Changes committed gnus/lisp (gnus-sum.el)) Date: Mon, 27 Mar 2006 20:11:49 +0200 Message-ID: References: Reply-To: Reiner Steib NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: sea.gmane.org 1143483551 3272 80.91.229.2 (27 Mar 2006 18:19:11 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 27 Mar 2006 18:19:11 +0000 (UTC) Cc: Original-X-From: ding-owner+m10943@lists.math.uh.edu Mon Mar 27 20:19:07 2006 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by ciao.gmane.org with esmtp (Exim 4.43) id 1FNwIs-0001Oc-Dz for ding-account@gmane.org; Mon, 27 Mar 2006 20:18:58 +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 1FNwIi-0001oZ-00; Mon, 27 Mar 2006 12:18:48 -0600 Original-Received: from nas01.math.uh.edu ([129.7.128.39]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1FNwCD-0001oU-00 for ding@lists.math.uh.edu; Mon, 27 Mar 2006 12:12:05 -0600 Original-Received: from quimby.gnus.org ([80.91.224.244]) by nas01.math.uh.edu with esmtp (Exim 4.52) id 1FNwC9-0000Zu-B9 for ding@lists.math.uh.edu; Mon, 27 Mar 2006 12:12:05 -0600 Original-Received: from mail.uni-ulm.de ([134.60.1.1]) by quimby.gnus.org with esmtp (Exim 3.35 #1 (Debian)) id 1FNwC7-0002mo-00 for ; Mon, 27 Mar 2006 20:11:59 +0200 Original-Received: from bridgekeeper.physik.uni-ulm.de (bridgekeeper.physik.uni-ulm.de [134.60.10.123]) by mail.uni-ulm.de (8.13.6/8.13.6) with ESMTP id k2RIBnkD006237; Mon, 27 Mar 2006 20:11:56 +0200 (MEST) Original-Received: by bridgekeeper.physik.uni-ulm.de (Postfix, from userid 170) id 7EA7E11360; Mon, 27 Mar 2006 20:11:49 +0200 (CEST) Original-To: "Karl Kleinpaste" Mail-Followup-To: "Karl Kleinpaste" , X-Face: #vK]N[`vqjuod*|)'[iD7/"3AB-ApT%fmN"LWAg@oS7OesGv~)n[OBTLM#I="J'Y^-7I I/ps7o_'IK@#-Rs{::DZ@O8yS|fexe,XslY[:dNWOb~>?mC-&i_c)say:"\IpA.5U.b]'NY;Pks{lb h.+#6%DpZuaK3dcHB`Av3zc:r!C%~s0&m,tWj]&},qg.+0ww2gK%f!:GK|wMl.I!(voY*1"^li8"~B BNG)9LvPi?^DMR-GVDnZqhu*3Hi,+g=wFhI)BL6&u{EOVEHjVEVq~d?_}lMntWAc3(6?kftjc>_f>! g0wM(qPM$d5]^TT_Qyi&L?LGVG)SHN;Gk/,pkY9,~ In-Reply-To: (Karl Kleinpaste's message of "Mon, 27 Mar 2006 19:22:19 +0200") User-Agent: Gnus/5.110004 (No Gnus v0.4) Emacs/22.0.50 (gnu/linux) X-DCC--Metrics: gemini 1074; Body=2 Fuz1=2 Fuz2=2 X-Spam-Score: -2.6 (--) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu Xref: news.gmane.org gmane.emacs.gnus.general:62417 Archived-At: On Mon, Mar 27 2006, Karl Kleinpaste on ding-patches: > (gnus-summary-from-or-to-or-newsgroups): Improve newsgroups handling > for NNTP overviews which don't include Newsgroups. > --- gnus-sum.el:7.128 Wed Mar 22 08:12:55 2006 > +++ gnus-sum.el Mon Mar 27 19:22:18 2006 > @@ -3522,7 +3522,13 @@ > (inline > (gnus-summary-extract-address-component > (funcall gnus-decode-encoded-word-function to))))) > - ((setq newsgroups (cdr (assq 'Newsgroups extra-headers))) > + ((setq newsgroups > + (or > + (cdr (assq 'Newsgroups extra-headers)) > + (and > + (eq (car (gnus-find-method-for-group > + gnus-newsgroup-name)) 'nntp) > + (replace-in-string gnus-newsgroup-name "^.*:" "")))) > (concat gnus-summary-newsgroup-prefix newsgroups))))) > (inline (gnus-summary-extract-address-component gnus-tmp-from))))) Emacs doesn't have `replace-in-string', you should use `gnus-replace-in-string' if you must. But wouldn't `gnus-group-real-name' be better? I've installed this patch: 2006-03-27 Reiner Steib * gnus-sum.el (gnus-summary-from-or-to-or-newsgroups): Don't use XEmacs-only `replace-in-string'. Use `gnus-group-real-name' instead. --8<---------------cut here---------------start------------->8--- --- gnus-sum.el 27 Mar 2006 17:22:18 -0000 7.129 +++ gnus-sum.el 27 Mar 2006 18:09:52 -0000 @@ -3528,7 +3528,7 @@ (and (eq (car (gnus-find-method-for-group gnus-newsgroup-name)) 'nntp) - (replace-in-string gnus-newsgroup-name "^.*:" "")))) + (gnus-group-real-name gnus-newsgroup-name)))) (concat gnus-summary-newsgroup-prefix newsgroups))))) (inline (gnus-summary-extract-address-component gnus-tmp-from))))) --8<---------------cut here---------------end--------------->8--- Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- | PGP key available | http://rsteib.home.pages.de/