X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Flisp-mnt.el;h=76feeb23f0fd754f8d63aa920dd43987998dc93f;hp=0eda67980e854b818876e2331a41abcb2b61aee5;hb=a5f466de30a3e927ed1146b0c7e3870e71465c8f;hpb=8b0299e2a613ab99d6e4dc2423e77ff93b715adc

diff --git a/lisp/lisp-mnt.el b/lisp/lisp-mnt.el
index 0eda679..76feeb2 100644
--- a/lisp/lisp-mnt.el
+++ b/lisp/lisp-mnt.el
@@ -407,7 +407,7 @@ with tag `Commentary' and ends with tag `Change Log' or `History'."
 	(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 @@ with tag `Commentary' and ends with tag `Change Log' or `History'."
 	    (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)))
       )))
@@ -449,17 +449,17 @@ a temporary buffer."
 	   (switch-to-buffer (get-buffer-create "*lm-verify*"))
 	   (erase-buffer)
 	   (mapcar
-	    '(lambda (f)
-	       (if (string-match ".*\\.el$" f)
-		   (let ((status (lm-verify f)))
-		     (if status
-			 (progn
-			   (insert f ":")
-			   (lm-insert-at-column lm-comment-column status "\n"))
-		       (and showok
-			    (progn
-			      (insert f ":")
-			      (lm-insert-at-column lm-comment-column "OK\n")))))))
+	    #'(lambda (f)
+		(if (string-match ".*\\.el$" f)
+		    (let ((status (lm-verify f)))
+		      (if status
+			  (progn
+			    (insert f ":")
+			    (lm-insert-at-column lm-comment-column status "\n"))
+			(and showok
+			     (progn
+			       (insert f ":")
+			       (lm-insert-at-column lm-comment-column "OK\n")))))))
 	    (directory-files file))
 	   ))
       (save-excursion
@@ -560,7 +560,9 @@ Prompts for bug subject.  Leaves you in a mail buffer."
     (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 "