diff options
| author | Glenn Morris <rgm@gnu.org> | 2009-02-13 03:44:10 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2009-02-13 03:44:10 +0000 |
| commit | 56ba44016209414439ab40d6a48620cd29054692 (patch) | |
| tree | 5ca72f0f4e72d3456018dcc2002a415ee193f43b /lisp/mail/unrmail.el | |
| parent | 6c34bcde1e907318c58bb7af3583a8e76ce37b6a (diff) | |
| download | emacs-56ba44016209414439ab40d6a48620cd29054692.tar.gz | |
(unrmail): When getting message keywords, don't include a leading
space, but do include the space after the separating comma. (Bug#2303)
Diffstat (limited to 'lisp/mail/unrmail.el')
| -rw-r--r-- | lisp/mail/unrmail.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/mail/unrmail.el b/lisp/mail/unrmail.el index 749d3942006..86957813e1e 100644 --- a/lisp/mail/unrmail.el +++ b/lisp/mail/unrmail.el @@ -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 |