Mercurial > hg > xemacs-beta

diff lisp/lisp-mnt.el @ 375:a300bb07d72d r21-2b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b3
author cvs
date Mon, 13 Aug 2007 11:04:51 +0200
parents cc15677e0335
children 8626e4521993
line wrap: on
line diff
--- a/lisp/lisp-mnt.el	Mon Aug 13 11:04:07 2007 +0200
+++ b/lisp/lisp-mnt.el	Mon Aug 13 11:04:51 2007 +0200
@@ -407,7 +407,7 @@
 	(let ((commentary	(lm-commentary-mark))
 	      (change-log	(lm-history-mark))
 	      (code		(lm-code-mark))
-	      )
+	      end)
 	  (cond
 	   ((and commentary change-log)
 	    (buffer-substring commentary change-log))
@@ -415,9 +415,9 @@
 	    (buffer-substring commentary code))
 	   (t
 	    ;; XEmacs change (Infodock headers? -sb)
-	    (setq commentary (lm-section-mark "DESCRIPTION" t)
-		  code (lm-section-mark "DESCRIP-END"))
-	    (and commentary end (buffer-substring commentary code)))))
+	    (setq commentary (lm-section-mark "DESCRIPTION" t))
+	    (setq end (lm-section-mark "DESCRIP-END"))
+	    (and commentary end (buffer-substring commentary end)))))
       (if file
 	  (kill-buffer (current-buffer)))
       )))
@@ -560,7 +560,9 @@
     (mail nil
 	  (if addr
 	      (concat (car addr) " <" (cdr addr) ">")
-	    bug-gnu-emacs)
+	    (or (and (boundp 'report-emacs-bug-beta-address)
+		     report-emacs-bug-beta-address)
+		"<xemacs-beta@xemacs.org>"))
 	  topic)
     (goto-char (point-max))
     (insert "\nIn "