projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(imap-send-command): Change EOL-chars when `imap-client-eol' differs
[gnus]
/
lisp
/
ietf-drums.el
diff --git
a/lisp/ietf-drums.el
b/lisp/ietf-drums.el
index
865ddff
..
6ef4fc1
100644
(file)
--- a/
lisp/ietf-drums.el
+++ b/
lisp/ietf-drums.el
@@
-1,5
+1,5
@@
;;; ietf-drums.el --- Functions for parsing RFC822bis headers
;;; ietf-drums.el --- Functions for parsing RFC822bis headers
-;; Copyright (C) 1998 Free Software Foundation, Inc.
+;; Copyright (C) 1998
,99
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.
@@
-87,6
+87,8
@@
((= i (length token))
(push (mm-make-char 'ascii c) out))
(t
((= i (length token))
(push (mm-make-char 'ascii c) out))
(t
+ (when b
+ (push (mm-make-char 'ascii b) out))
(setq b c))))
(nreverse out)))
(setq b c))))
(nreverse out)))
@@
-226,8
+228,8
@@
"Narrow to the header section in the current buffer."
(narrow-to-region
(goto-char (point-min))
"Narrow to the header section in the current buffer."
(narrow-to-region
(goto-char (point-min))
- (if (re-search-forward "^\
n
" nil 1)
- (
1- (point)
)
+ (if (re-search-forward "^\
r?$
" nil 1)
+ (
match-beginning 0
)
(point-max)))
(goto-char (point-min)))
(point-max)))
(goto-char (point-min)))