[Emacs-diffs] trunk r113458: Add a comment.

[Richard M. Stallman]

------------------------------------------------------------
revno: 113458
revision-id: address@hidden
parent: address@hidden
committer: Richard Stallman <address@hidden>
branch nick: trunk
timestamp: Fri 2013-07-19 09:09:03 -0400
message:
  Add a comment.
modified:
  lisp/mail/mailalias.el         
mailalias.el-20091113204419-o5vbwnq5f7feedwu-110

=== modified file 'lisp/mail/mailalias.el'
--- a/lisp/mail/mailalias.el    2013-01-01 09:11:05 +0000
+++ b/lisp/mail/mailalias.el    2013-07-19 13:09:03 +0000
@@ -209,7 +209,9 @@
            (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))