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))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
