From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/6513 Path: main.gmane.org!not-for-mail From: Greg Thompson Newsgroups: gmane.emacs.gnus.general Subject: message.el bugout in message-buffer-name in 5.2.6 Date: 04 Jun 1996 10:14:17 -0400 Message-ID: <1ln32jk66e.fsf@zagato.visix.com> Reply-To: gregt@visix.com NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 (generated by tm-edit 7.66) Content-Type: text/plain; charset=US-ASCII X-Trace: main.gmane.org 1035146956 3869 80.91.224.250 (20 Oct 2002 20:49:16 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:49:16 +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.5/8.6.9) with SMTP id HAA08495 for ; Tue, 4 Jun 1996 07:48:58 -0700 Original-Received: from shelby.visix.com (shelby-102.visix.com [149.62.102.251]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id for ; Tue, 4 Jun 1996 16:14:52 +0200 Original-Received: from zagato.visix.com (zagato.visix.com [149.62.101.48]) by shelby.visix.com (8.6.12/8.6.12) with SMTP id KAA00621 for ; Tue, 4 Jun 1996 10:14:21 -0400 Original-Received: by zagato.visix.com (AIX 4.1/UCB 5.64/4.03) id AA19848; Tue, 4 Jun 1996 10:14:18 -0400 Original-To: ding@ifi.uio.no Original-Lines: 38 X-Mailer: Gnus v5.2.6/Emacs 19.31 Xref: main.gmane.org gmane.emacs.gnus.general:6513 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:6513 message-buffer name was invoking mail-extract-address-components with nil. the following patch is probably non-optimal (i make no claims at being an elisp guy), but it works for me. *** message.el~ Tue Jun 4 07:45:49 1996 --- message.el Tue Jun 4 09:43:59 1996 *************** *** 2170,2181 **** (if message-generate-new-buffers (generate-new-buffer-name (concat "*" type ! (if (or to group) (concat " to " (or (car (mail-extract-address-components to)) ! to) ! (if group (concat " on " group) "")) "") "*")) (format "*%s message*" type))) --- 2170,2181 ---- (if message-generate-new-buffers (generate-new-buffer-name (concat "*" type ! (if to (concat " to " (or (car (mail-extract-address-components to)) ! to) "") "") + (if group (concat " on " group) "") "*")) (format "*%s message*" type))) -- -greg ego is beast and ego is evil but ego knows best, at least she says so -the god machine