projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* nnslashdot.el (nnslashdot-sid-strip): New function.
[gnus]
/
lisp
/
ietf-drums.el
diff --git
a/lisp/ietf-drums.el
b/lisp/ietf-drums.el
index
c28c942
..
853c208
100644
(file)
--- a/
lisp/ietf-drums.el
+++ b/
lisp/ietf-drums.el
@@
-1,5
+1,6
@@
;;; ietf-drums.el --- Functions for parsing RFC822bis headers
;;; ietf-drums.el --- Functions for parsing RFC822bis headers
-;; Copyright (C) 1998,99 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000
+;; 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.
@@
-115,7
+116,7
@@
(buffer-string))))
(defun ietf-drums-remove-whitespace (string)
(buffer-string))))
(defun ietf-drums-remove-whitespace (string)
- "Remove
comments
from STRING."
+ "Remove
whitespace
from STRING."
(with-temp-buffer
(ietf-drums-init string)
(let (c)
(with-temp-buffer
(ietf-drums-init string)
(let (c)
@@
-151,6
+152,10
@@
(forward-char 1))))
result)))
(forward-char 1))))
result)))
+(defun ietf-drums-strip (string)
+ "Remove comments and whitespace from STRING."
+ (ietf-drums-remove-whitespace (ietf-drums-remove-comments string)))
+
(defun ietf-drums-parse-address (string)
"Parse STRING and return a MAILBOX / DISPLAY-NAME pair."
(with-temp-buffer
(defun ietf-drums-parse-address (string)
"Parse STRING and return a MAILBOX / DISPLAY-NAME pair."
(with-temp-buffer
@@
-228,8
+233,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)))