Mercurial > emacs
comparison lisp/mail/mail-extr.el @ 51081:a4bb96832880
Use explicit coding tag.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 18 May 2003 21:27:41 +0000 |
| parents | 5f47d61ffbdc |
| children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
| 51080:e5124f8f4dc9 | 51081:a4bb96832880 |
|---|---|
| 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. |
| 5 | 5 |
| 6 ;; Author: Joe Wells <jbw@cs.bu.edu> | 6 ;; Author: Joe Wells <jbw@cs.bu.edu> |
| 614 ;; Utility functions and macros. | 614 ;; Utility functions and macros. |
| 615 ;; | 615 ;; |
| 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) |
| 627 (save-excursion | 627 (save-excursion |
| 628 (save-restriction | 628 (save-restriction |