changeset 5359:c87a767f137e

(lm-report-bug): lm-maintainer returns a cons; convert it to a string.
author Richard M. Stallman <rms@gnu.org>
date Sun, 26 Dec 1993 08:02:10 +0000
parents 98efb3231d81
children 7e5fce72b793
files lisp/emacs-lisp/lisp-mnt.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mnt.el	Sun Dec 26 07:56:21 1993 +0000
+++ b/lisp/emacs-lisp/lisp-mnt.el	Sun Dec 26 08:02:10 1993 +0000
@@ -5,7 +5,7 @@
 ;; Author: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Maintainer: Eric S. Raymond <esr@snark.thyrsus.com>
 ;; Created: 14 Jul 1992
-;; Version: $Id: lisp-mnt.el,v 1.5 1993/12/22 12:06:54 friedman Exp rms $
+;; Version: $Id: lisp-mnt.el,v 1.6 1993/12/26 07:56:21 rms Exp rms $
 ;; Keywords: docs
 ;; X-Bogus-Bureaucratic-Cruft: Gruad will get you if you don't watch out!
 
@@ -421,7 +421,11 @@
   (let ((package (buffer-name))
 	(addr (lm-maintainer))
 	(version (lm-version)))
-    (mail nil (or addr bug-gnu-emacs) topic)
+    (mail nil
+	  (if addr
+	      (concat (car addr) " <" (cdr addr) ">")
+	    bug-gnu-emacs)
+	  topic)
     (goto-char (point-max))
     (insert "\nIn "
 	    package