From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 30 Sep 1998 19:16:47 +0000 (+0000)
Subject: (build-mail-aliases): Don't allow
X-Git-Tag: emacs-20.4~1593
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c051dfe5ce67c214692b6e55b647eeabcaf5115f;p=emacs.git

(build-mail-aliases): Don't allow
a newline in the alias name.  Don't define an alias
if the definition would be empty.
---

diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index fec940c7254..f40c460e034 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -282,14 +282,14 @@ By default, this is the file specified by `mail-personal-alias-file'."
 		  (t (setq file nil))))
 	  (goto-char (point-min))
 	  (while (re-search-forward
-		  "^\\(a\\|alias\\|g\\|group\\)[ \t]+\\([^ \t]+\\)" nil t)
+		  "^\\(a\\|alias\\|g\\|group\\)[ \t]+\\([^ \t\n]+\\)" nil t)
 	    (let* ((name (match-string 2))
-		   (start (progn (skip-chars-forward " \t") (point))))
+		   (start (progn (skip-chars-forward " \t") (point)))
+		   value)
 	      (end-of-line)
-	      (define-mail-alias
-		name
-		(buffer-substring-no-properties start (point))
-		t)))
+	      (setq value (buffer-substring-no-properties start (point)))
+	      (unless (equal value "")
+		(define-mail-alias name value t))))
 	  mail-aliases)
       (if buffer (kill-buffer buffer))
       (set-buffer obuf))))