projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Gnus -- minor build / warning fixes [OK For Upstream]
[gnus]
/
lisp
/
ietf-drums.el
diff --git
a/lisp/ietf-drums.el
b/lisp/ietf-drums.el
index
1121368
..
c0e1542
100644
(file)
--- a/
lisp/ietf-drums.el
+++ b/
lisp/ietf-drums.el
@@
-1,6
+1,6
@@
;;; ietf-drums.el --- Functions for parsing RFC822bis headers
;;; ietf-drums.el --- Functions for parsing RFC822bis headers
-;; Copyright (C) 1998-201
4
Free Software Foundation, Inc.
+;; Copyright (C) 1998-201
6
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.
@@
-121,7
+121,7
@@
backslash and doublequote.")
(setq c (char-after))
(cond
((eq c ?\")
(setq c (char-after))
(cond
((eq c ?\")
- (condition-case
err
+ (condition-case
nil
(forward-sexp 1)
(error (goto-char (point-max)))))
((eq c ?\()
(forward-sexp 1)
(error (goto-char (point-max)))))
((eq c ?\()
@@
-206,7
+206,6
@@
backslash and doublequote.")
(1+ (point))
(progn (forward-sexp 1) (1- (point))))))))
(t
(1+ (point))
(progn (forward-sexp 1) (1- (point))))))))
(t
- (message "Unknown symbol: %c" c)
(forward-char 1))))
;; If we found no display-name, then we look for comments.
(if display-name
(forward-char 1))))
;; If we found no display-name, then we look for comments.
(if display-name