aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorStefan Monnier2003-05-18 21:27:41 +0000
committerStefan Monnier2003-05-18 21:27:41 +0000
commitb1ccc1cee6ed6bd3f10fa2bfc499f66af1fdfc18 (patch)
tree692d35abe34a2a73fe89c221b79d77dfe09832d3 /lisp
parentc069d3ac3391b17d735c4868bda7d8148a9333af (diff)
downloademacs-b1ccc1cee6ed6bd3f10fa2bfc499f66af1fdfc18.tar.gz
emacs-b1ccc1cee6ed6bd3f10fa2bfc499f66af1fdfc18.zip
Use explicit coding tag.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/mail/mail-extr.el6
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)