[Emacs-diffs] Changes to emacs/lisp/mail/mailalias.el

[Richard M . Stallman]

Index: emacs/lisp/mail/mailalias.el
diff -c emacs/lisp/mail/mailalias.el:1.57 emacs/lisp/mail/mailalias.el:1.58
*** emacs/lisp/mail/mailalias.el:1.57   Sat Aug  6 18:54:05 2005
--- emacs/lisp/mail/mailalias.el        Thu Aug 25 11:00:38 2005
***************
*** 262,267 ****
--- 262,273 ----
                  ((file-exists-p (setq file (concat "~/" file)))
                   (insert-file-contents file))
                  (t (setq file nil)))
+           (goto-char (point-min))
+           ;; Delete comments from the contents.
+           (while (search-forward "# " nil t)
+             (let ((p (- (point) 2)))
+               (end-of-line)
+               (delete-region p (point))))
            ;; Don't lose if no final newline.
            (goto-char (point-max))
            (or (eq (preceding-char) ?\n) (newline))