diff options
| author | Richard M. Stallman <rms@gnu.org> | 2013-07-19 09:09:03 -0400 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2013-07-19 09:09:03 -0400 |
| commit | a10b2d0377ed82a67571447cb491523cc4f26645 (patch) | |
| tree | c862375b82a57e0245bd0afc5792e406f2003518 /lisp/mail/mailalias.el | |
| parent | 77c92cb94d91ecad4040c8f14c8413f23aaddd9a (diff) | |
| download | emacs-a10b2d0377ed82a67571447cb491523cc4f26645.tar.gz | |
Add a comment.
Diffstat (limited to 'lisp/mail/mailalias.el')
| -rw-r--r-- | lisp/mail/mailalias.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mail/mailalias.el b/lisp/mail/mailalias.el index c5f1e3921fa..4d9b24e0043 100644 --- a/lisp/mail/mailalias.el +++ b/lisp/mail/mailalias.el @@ -209,7 +209,9 @@ removed from alias expansions." (if (re-search-forward "[ \t]*[\n,][ \t]*" end1 t) (setq epos (match-beginning 0) seplen (- (point) epos)) - (setq epos (marker-position end1) seplen 0)) + ;; Handle the last name in this header field. + ;; We already moved END1 back across whitespace after it. + (setq epos (marker-position end1) seplen 0)) (let ((string (buffer-substring-no-properties pos epos)) translation) (if (and (not (assoc string disabled-aliases)) |