From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/12759 Path: main.gmane.org!not-for-mail From: Justin Sheehy Newsgroups: gmane.emacs.gnus.general Subject: Re: mail-extract-address-components vs gnus-... Date: 03 Nov 1997 14:40:43 -0500 Organization: The MITRE Corporation Sender: justin@caffeine.mitre.org Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.106) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035152238 5511 80.91.224.250 (20 Oct 2002 22:17:18 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:17:18 +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 OAA01241 for ; Mon, 3 Nov 1997 14:23:05 -0800 Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by xemacs.org (8.8.5/8.8.5) with ESMTP id QAA06130 for ; Mon, 3 Nov 1997 16:24:03 -0600 (CST) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by ifi.uio.no (8.8.7/8.8.7/ifi0.2) with SMTP id VAA12433 for ; Mon, 3 Nov 1997 21:53:33 +0100 (MET) Original-Received: (qmail 607 invoked by uid 504); 3 Nov 1997 20:53:32 -0000 Original-Received: (qmail 604 invoked from network); 3 Nov 1997 20:53:31 -0000 Original-Received: from top.mitre.org (129.83.20.38) by claymore.vcinet.com with SMTP; 3 Nov 1997 20:53:31 -0000 Original-Received: (from news@localhost) by top.mitre.org (8.8.6/8.8.6) id OAA27598; Mon, 3 Nov 1997 14:40:45 -0500 (EST) Original-To: gnu-emacs-bug@tut.cis.ohio-state.edu Original-Path: news Original-Newsgroups: gnu.emacs.sources,gnu.emacs.bug,comp.emacs.xemacs Original-Followup-To: poster Original-Lines: 81 Original-NNTP-Posting-Host: caffeine.mitre.org Original-To: ding@gnus.org X-Newsreader: Quassia Gnus v0.12/Emacs 19.34 Xref: main.gmane.org gmane.emacs.gnus.general:12759 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:12759 Hrvoje Niksic writes: > My conclusion, too. If you can produce a patch to mail-extr.el that > removes this "feature" without breaking anything else, the XEmacers > will apply it, I think. Done. This will leave `&' alone in most cases, instead of substituting. In order to make anyone who thinks that we should perpetuate old UNIX brokenness happy, it will do the substitution iff the `&' is the last word in the Full Name. e.g. (with this patch): (mail-extract-address-components "Charlie & ") ("Charlie Root" "root@notcom.com") (mail-extract-address-components "Charlie & Joe ") ("Charlie & Joe" "root@notcom.com") If anyone sees anything wrong with this behavior, or with the patch itself, please let me know. Otherwise, I would like to suggest that this be incorporated into Emacs and XEmacs. *** mail-extr.el.orig Mon Nov 3 12:59:15 1997 --- mail-extr.el Mon Nov 3 14:37:12 1997 *************** *** 118,123 **** --- 118,127 ---- ;;; Change Log: ;; + ;; Mon Nov 3 14:35:24 1997 Justin Sheehy (justin@linus.mitre.org) + ;; + ;; * only substitute for & when at end of Full Name + ;; ;; Thu Feb 17 17:57:33 1994 Jamie Zawinski (jwz@lucid.com) ;; ;; * merged with jbw's latest version *************** *** 1593,1606 **** ((and (or (bobp) (eq ?\ (preceding-char))) (looking-at "&\\( \\|\\'\\)")) ! (mail-extr-delete-char 1) ! (capitalize-region ! (point) ! (progn ! (insert-buffer-substring canonicalization-buffer ! mbox-beg mbox-end) ! (point))) ! (setq disable-initial-guessing-flag t) (setq word-found-flag t)) ;; Handle *Stupid* VMS date stamps --- 1597,1613 ---- ((and (or (bobp) (eq ?\ (preceding-char))) (looking-at "&\\( \\|\\'\\)")) ! (if (looking-at "&$") ! (progn ! (mail-extr-delete-char 1) ! (capitalize-region ! (point) ! (progn ! (insert-buffer-substring canonicalization-buffer ! mbox-beg mbox-end) ! (point))) ! (setq disable-initial-guessing-flag t)) ! (forward-char)) (setq word-found-flag t)) ;; Handle *Stupid* VMS date stamps -- Justin Sheehy In a cloud bones of steel.