(unrmail): When getting message keywords, don't include a leading

space, but do include the space after the separating comma.  (Bug#2303)
This commit is contained in:
Glenn Morris 2009-02-13 03:44:10 +00:00
parent 6c34bcde1e
commit 56ba440162

View file

@ -133,14 +133,16 @@ For example, invoke `emacs -batch -f batch-unrmail RMAIL'."
(buffer-substring (point)
(save-excursion (forward-line 1)
(point))))
(search-forward ",,")
(re-search-forward ",, ?")
(unless (eolp)
(setq keywords
(buffer-substring (point)
(progn (end-of-line)
(1- (point)))))
(setq keywords
(replace-regexp-in-string ", " "," keywords)))
;; Mbox rmail needs the spaces. Bug#2303.
;;; (setq keywords
;;; (replace-regexp-in-string ", " "," keywords))
)
(setq attrs
(list