From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/5391 Path: main.gmane.org!not-for-mail From: Steven L Baur Newsgroups: gmane.emacs.gnus.general Subject: Re: September Gnus 0.48 is released Date: 29 Feb 1996 11:25:35 -0800 Organization: Miranova Systems, Inc. Sender: steve@miranova.com Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.43) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035146002 32654 80.91.224.250 (20 Oct 2002 20:33:22 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:33:22 +0000 (UTC) Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.3/8.6.9) with SMTP id MAA08351 for ; Thu, 29 Feb 1996 12:03:15 -0800 Original-Received: from deanna.miranova.com (steve@miranova.com [204.212.162.100]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Thu, 29 Feb 1996 20:26:04 +0100 Original-Received: (from steve@localhost) by deanna.miranova.com (8.7.3/8.6.9) id LAA08068; Thu, 29 Feb 1996 11:25:38 -0800 Original-To: ding@ifi.uio.no X-Url: http://www.miranova.com/%7Esteve/ Mail-Copies-To: never In-Reply-To: Lars Magne Ingebrigtsen's message of 29 Feb 1996 05:35:02 -0800 Original-Lines: 148 X-Mailer: September Gnus v0.48/XEmacs 19.13 Xref: main.gmane.org gmane.emacs.gnus.general:5391 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:5391 There was an XEmacs compatibility problem introduced into v0.46. The utility function mail-strip-quoted-names accepts nil input on Emacs 19.30 and barfs and dies on nil input with XEmacs 19.13. The following patch works around this problem. A 19.14 beta tester should check to see if mail-strip-quoted-names (in utils/mail-utils.el) still has the same bug. The supplied patch does nothing on Emacs 19.30 and on XEmacs puts a wrapper around mail-strip-quoted-names to correctly process a nil parameter. =================================================================== RCS file: RCS/ChangeLog,v retrieving revision 1.51 diff -u -r1.51 ChangeLog --- ChangeLog 1996/02/29 17:14:32 1.51 +++ ChangeLog 1996/02/29 19:02:39 @@ -1,3 +1,15 @@ +Thu Feb 29 10:50:02 1996 Steven L. Baur + + * gnus-xmas.el (gnus-xmas-redefine): Add wrapper to + mail-strip-quoted-names. + (gnus-xmas-mail-strip-quoted-names): New function. + + * gnus-msg.el (gnus-mail-reply): Use it. + + * gnus-soup.el (gnus-soup-store): Use it. + + * gnus-ems.el: mail-strip-quoted-names -> gnus-mail-strip-quoted-names. + Thu Feb 29 14:28:06 1996 Lars Magne Ingebrigtsen * gnus.el (gnus-read-active-file): Wouldn't work on `some'. =================================================================== RCS file: RCS/gnus-ems.el,v retrieving revision 1.8 diff -u -r1.8 gnus-ems.el --- gnus-ems.el 1996/02/19 23:48:29 1.8 +++ gnus-ems.el 1996/02/29 18:48:55 @@ -39,6 +39,7 @@ (defalias 'gnus-extent-start-open 'ignore) (defalias 'gnus-set-text-properties 'set-text-properties) (defalias 'gnus-appt-select-lowest-window 'appt-select-lowest-window) +(defalias 'gnus-mail-strip-quoted-names 'mail-strip-quoted-names) (eval-and-compile (autoload 'gnus-xmas-define "gnus-xmas") =================================================================== RCS file: RCS/gnus-xmas.el,v retrieving revision 1.16 diff -u -r1.16 gnus-xmas.el --- gnus-xmas.el 1996/02/19 23:48:29 1.16 +++ gnus-xmas.el 1996/02/29 18:54:07 @@ -397,6 +397,7 @@ (fset 'gnus-tree-minimize 'gnus-xmas-tree-minimize) (fset 'gnus-appt-select-lowest-window 'gnus-xmas-appt-select-lowest-window) + (fset 'gnus-mail-strip-quoted-names 'gnus-xmas-mail-strip-quoted-names) (add-hook 'gnus-group-mode-hook 'gnus-xmas-group-menu-add) (add-hook 'gnus-summary-mode-hook 'gnus-xmas-summary-menu-add) @@ -710,5 +711,11 @@ (after-find-file error (not nowarn))))) buf))) +(defun gnus-xmas-mail-strip-quoted-names (address) + "Protect mail-strip-quoted-names from NIL input. +XEmacs compatibility workaround." + (if (null address) + nil + (mail-strip-quoted-names address))) ;;; gnus-xmas.el ends here =================================================================== RCS file: RCS/gnus-msg.el,v retrieving revision 1.36 diff -u -r1.36 gnus-msg.el --- gnus-msg.el 1996/02/29 17:12:15 1.36 +++ gnus-msg.el 1996/02/29 19:01:32 @@ -481,9 +481,9 @@ (gnus-summary-select-article t) ;; Check whether the user owns the article that is to be superseded. (unless (string-equal - (downcase (mail-strip-quoted-names + (downcase (gnus-mail-strip-quoted-names (mail-header-from gnus-current-headers))) - (downcase (mail-strip-quoted-names (gnus-inews-user-name)))) + (downcase (gnus-mail-strip-quoted-names (gnus-inews-user-name)))) (error "This article is not yours.")) ;; Get a normal *Post News* buffer. (gnus-new-news gnus-newsgroup-name t) @@ -1035,8 +1035,9 @@ ;; user id with value of its From: field. (if (not (string-equal - (downcase (mail-strip-quoted-names from)) - (downcase (mail-strip-quoted-names (gnus-inews-user-name))))) + (downcase (gnus-mail-strip-quoted-names from)) + (downcase (gnus-mail-strip-quoted-names + (gnus-inews-user-name))))) (progn (ding) (gnus-message 3 "This article is not yours.") nil) @@ -1891,8 +1892,8 @@ new-cc (if (and mctdo (not (string= - (mail-strip-quoted-names mct) - (mail-strip-quoted-names + (gnus-mail-strip-quoted-names mct) + (gnus-mail-strip-quoted-names (or to-address (if (and follow-to (not (stringp follow-to))) @@ -1917,7 +1918,7 @@ (setq ccalist (mapcar (lambda (addr) - (cons (mail-strip-quoted-names addr) addr)) + (cons (gnus-mail-strip-quoted-names addr) addr)) (nreverse (gnus-mail-parse-comma-list)))) (let ((s ccalist)) (while s =================================================================== RCS file: RCS/gnus-soup.el,v retrieving revision 1.10 diff -u -r1.10 gnus-soup.el --- gnus-soup.el 1996/02/29 05:45:56 1.10 +++ gnus-soup.el 1996/02/29 19:02:24 @@ -223,7 +223,7 @@ ;; Find the "from". (goto-char (point-min)) (setq from - (mail-strip-quoted-names + (gnus-mail-strip-quoted-names (or (mail-fetch-field "from") (mail-fetch-field "really-from") (mail-fetch-field "sender")))) -- steve@miranova.com baur Unsolicited commercial e-mail will be proofread for $250/hour. Andrea Seastrand: For your vote on the Telecom bill, I will vote for anyone except you in November.