diff options
| -rw-r--r-- | lisp/mail/mail-extr.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/mail/mail-extr.el b/lisp/mail/mail-extr.el index e764fb26b67..8bcc4c72d3a 100644 --- a/lisp/mail/mail-extr.el +++ b/lisp/mail/mail-extr.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; mail-extr.el --- extract full name and address from RFC 822 mail header | 1 | ;;; mail-extr.el --- extract full name and address from RFC 822 mail header -*- coding: utf-8 -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1991, 1992, 1993, 1994, 1997, 2001 | 3 | ;; Copyright (C) 1991, 1992, 1993, 1994, 1997, 2001 |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; Free Software Foundation, Inc. |
| @@ -616,11 +616,11 @@ by translating things like \"foo!bar!baz@host\" into \"baz@bar.UUCP\"." | |||
| 616 | 616 | ||
| 617 | (defsubst mail-extr-skip-whitespace-forward () | 617 | (defsubst mail-extr-skip-whitespace-forward () |
| 618 | ;; v19 fn skip-syntax-forward is more tasteful, but not byte-coded. | 618 | ;; v19 fn skip-syntax-forward is more tasteful, but not byte-coded. |
| 619 | (skip-chars-forward " \t\n\r\240")) | 619 | (skip-chars-forward " \t\n\r ")) |
| 620 | 620 | ||
| 621 | (defsubst mail-extr-skip-whitespace-backward () | 621 | (defsubst mail-extr-skip-whitespace-backward () |
| 622 | ;; v19 fn skip-syntax-backward is more tasteful, but not byte-coded. | 622 | ;; v19 fn skip-syntax-backward is more tasteful, but not byte-coded. |
| 623 | (skip-chars-backward " \t\n\r\240")) | 623 | (skip-chars-backward " \t\n\r ")) |
| 624 | 624 | ||
| 625 | 625 | ||
| 626 | (defsubst mail-extr-undo-backslash-quoting (beg end) | 626 | (defsubst mail-extr-undo-backslash-quoting (beg end) |