(build-mail-aliases): Delete comments

from the contents before processing them.

1 files changed, 6 insertions, 0 deletions

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 56882f04eb5..48f3494a0e6 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -262,6 +262,12 @@ By default, this is the file specified by `mail-personal-alias-file'."
                   ((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))