Commit cc4b6c02 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(define-mail-alias): Avoid error if DEFINITION is "".

parent bd21cb17
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment