summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-08-09 05:52:47 +0000
committerRichard M. Stallman <rms@gnu.org>1994-08-09 05:52:47 +0000
commitcc4b6c0239670d4eeaa803bd740a5ec9e1e1d18c (patch)
tree3274ed4f1d9f38f8e0f5a32e5de7b718154a1607
parentbd21cb17b7d63dde6f81e0076c8e41c5f9f45475 (diff)
downloademacs-cc4b6c0239670d4eeaa803bd740a5ec9e1e1d18c.tar.gz
(define-mail-alias): Avoid error if DEFINITION is "".
-rw-r--r--lisp/mail/mailalias.el7
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el
index 25d52cfae23..6addb3c5a90 100644
--- a/lisp/mail/mailalias.el
+++ b/lisp/mail/mailalias.el
@@ -178,7 +178,8 @@ An address can contain spaces if it is quoted with double-quotes."
(if (string-match "[ \t\n,]+\\'" definition)
(setq definition (substring definition 0 (match-beginning 0))))
(let ((result '())
- (start 0)
+ ;; If DEFINITION is null string, avoid looping even once.
+ (start (and (not (equal definition "")) 0))
(L (length definition))
end tem)
(while start
@@ -189,8 +190,8 @@ An address can contain spaces if it is quoted with double-quotes."
(if (eq ?\" (aref definition start))
(setq start (1+ start)
end (string-match "\"[ \t,]*" definition start))
- (setq end (string-match "[ \t,]+" definition start)))
- (setq end (string-match "[ \t\n,]*,[ \t\n,]*" definition start)))
+ (setq end (string-match "[ \t,]+" definition start)))
+ (setq end (string-match "[ \t\n,]*,[ \t\n,]*" definition start)))
(setq result (cons (substring definition start end) result))
(setq start (and end
(/= (match-end 0) L)