HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add 2012 to FSF copyright years for Emacs files
[bpt/emacs.git]
/
lisp
/
gnus
/
ietf-drums.el
diff --git
a/lisp/gnus/ietf-drums.el
b/lisp/gnus/ietf-drums.el
index
4f2e9af
..
6f5446e
100644
(file)
--- a/
lisp/gnus/ietf-drums.el
+++ b/
lisp/gnus/ietf-drums.el
@@
-1,7
+1,6
@@
;;; ietf-drums.el --- Functions for parsing RFC822bis headers
;;; ietf-drums.el --- Functions for parsing RFC822bis headers
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;; 2005, 2006, 2007, 2008 Free Software Foundation, Inc.
+;; Copyright (C) 1998-2012 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; This file is part of GNU Emacs.
;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
;; This file is part of GNU Emacs.
@@
-39,7
+38,6
@@
;;; Code:
(eval-when-compile (require 'cl))
;;; Code:
(eval-when-compile (require 'cl))
-(require 'time-date)
(require 'mm-util)
(defvar ietf-drums-no-ws-ctl-token "\001-\010\013\014\016-\037\177"
(require 'mm-util)
(defvar ietf-drums-no-ws-ctl-token "\001-\010\013\014\016-\037\177"
@@
-123,9
+121,18
@@
backslash and doublequote.")
(setq c (char-after))
(cond
((eq c ?\")
(setq c (char-after))
(cond
((eq c ?\")
- (forward-sexp 1))
+ (condition-case err
+ (forward-sexp 1)
+ (error (goto-char (point-max)))))
((eq c ?\()
((eq c ?\()
- (delete-region (point) (progn (forward-sexp 1) (point))))
+ (delete-region
+ (point)
+ (condition-case nil
+ (with-syntax-table (copy-syntax-table ietf-drums-syntax-table)
+ (modify-syntax-entry ?\" "w")
+ (forward-sexp 1)
+ (point))
+ (error (point-max)))))
(t
(forward-char 1))))
(buffer-string))))
(t
(forward-char 1))))
(buffer-string))))
@@
-287,5
+294,4
@@
a list of address strings."
(provide 'ietf-drums)
(provide 'ietf-drums)
-;; arch-tag: 379a0191-dbae-4ca6-a0f5-d4202c209ef9
;;; ietf-drums.el ends here
;;; ietf-drums.el ends here