projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of https://git.gnus.org/gnus into tzz-auth-source-rewrite
[gnus]
/
lisp
/
ietf-drums.el
diff --git
a/lisp/ietf-drums.el
b/lisp/ietf-drums.el
index
37e33b5
..
4d99cea
100644
(file)
--- a/
lisp/ietf-drums.el
+++ b/
lisp/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-2011 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"
@@
-119,14
+117,15
@@
backslash and doublequote.")
(with-temp-buffer
(let (c)
(ietf-drums-init string)
(with-temp-buffer
(let (c)
(ietf-drums-init string)
- (condition-case err
- (while (not (eobp))
- (setq c (char-after))
- (cond
- ((eq c ?\")
- (forward-sexp 1))
- ((eq c ?\()
- (delete-region
+ (while (not (eobp))
+ (setq c (char-after))
+ (cond
+ ((eq c ?\")
+ (condition-case err
+ (forward-sexp 1)
+ (error (goto-char (point-max)))))
+ ((eq c ?\()
+ (delete-region
(point)
(condition-case nil
(with-syntax-table (copy-syntax-table ietf-drums-syntax-table)
(point)
(condition-case nil
(with-syntax-table (copy-syntax-table ietf-drums-syntax-table)
@@
-134,9
+133,8
@@
backslash and doublequote.")
(forward-sexp 1)
(point))
(error (point-max)))))
(forward-sexp 1)
(point))
(error (point-max)))))
- (t
- (forward-char 1))))
- (error nil))
+ (t
+ (forward-char 1))))
(buffer-string))))
(defun ietf-drums-remove-whitespace (string)
(buffer-string))))
(defun ietf-drums-remove-whitespace (string)
@@
-296,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