projects
/
gnus
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
*** empty log message ***
[gnus]
/
lisp
/
nnheader.el
diff --git
a/lisp/nnheader.el
b/lisp/nnheader.el
index
ac44b44
..
3b662a5
100644
(file)
--- a/
lisp/nnheader.el
+++ b/
lisp/nnheader.el
@@
-1,5
+1,6
@@
+
;;; nnheader.el --- header access macros for Gnus and its backends
;;; nnheader.el --- header access macros for Gnus and its backends
-;; Copyright (C) 198
,997,88,89,90,93,94,95,96,97,98
Free Software Foundation, Inc.
+;; Copyright (C) 198
7-1990,1993-1999
Free Software Foundation, Inc.
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
;; Lars Magne Ingebrigtsen <larsi@gnus.org>
;; Author: Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
;; Lars Magne Ingebrigtsen <larsi@gnus.org>
@@
-50,7
+51,7
@@
(defvar nnheader-file-name-translation-alist nil
"*Alist that says how to translate characters in file names.
(defvar nnheader-file-name-translation-alist nil
"*Alist that says how to translate characters in file names.
-For instance, if \":\" is i
llegal
as a file character in file names
+For instance, if \":\" is i
nvalid
as a file character in file names
on your system, you could say something like:
\(setq nnheader-file-name-translation-alist '((?: . ?_)))")
on your system, you could say something like:
\(setq nnheader-file-name-translation-alist '((?: . ?_)))")
@@
-267,7
+268,7
@@
on your system, you could say something like:
(goto-char p)
(and (search-forward "\nxref: " nil t)
(nnheader-header-value)))
(goto-char p)
(and (search-forward "\nxref: " nil t)
(nnheader-header-value)))
-
+
;; Extra.
(when nnmail-extra-headers
(let ((extra nnmail-extra-headers)
;; Extra.
(when nnmail-extra-headers
(let ((extra nnmail-extra-headers)
@@
-308,6
+309,12
@@
on your system, you could say something like:
out)))
out))
out)))
out))
+(defmacro nnheader-nov-read-message-id ()
+ '(let ((id (nnheader-nov-field)))
+ (if (string-match "^<[^>]+>$" id)
+ id
+ (nnheader-generate-fake-message-id))))
+
(defun nnheader-parse-nov ()
(let ((eol (gnus-point-at-eol)))
(vector
(defun nnheader-parse-nov ()
(let ((eol (gnus-point-at-eol)))
(vector
@@
-315,8
+322,7
@@
on your system, you could say something like:
(nnheader-nov-field) ; subject
(nnheader-nov-field) ; from
(nnheader-nov-field) ; date
(nnheader-nov-field) ; subject
(nnheader-nov-field) ; from
(nnheader-nov-field) ; date
- (or (nnheader-nov-field)
- (nnheader-generate-fake-message-id)) ; id
+ (nnheader-nov-read-message-id) ; id
(nnheader-nov-field) ; refs
(nnheader-nov-read-integer) ; chars
(nnheader-nov-read-integer) ; lines
(nnheader-nov-field) ; refs
(nnheader-nov-read-integer) ; chars
(nnheader-nov-read-integer) ; lines
@@
-494,7
+500,8
@@
the line could be found."
(defun nnheader-insert-references (references message-id)
"Insert a References header based on REFERENCES and MESSAGE-ID."
(if (and (not references) (not message-id))
(defun nnheader-insert-references (references message-id)
"Insert a References header based on REFERENCES and MESSAGE-ID."
(if (and (not references) (not message-id))
- () ; This is illegal, but not all articles have Message-IDs.
+ ;; This is invalid, but not all articles have Message-IDs.
+ ()
(mail-position-on-field "References")
(let ((begin (save-excursion (beginning-of-line) (point)))
(fill-column 78)
(mail-position-on-field "References")
(let ((begin (save-excursion (beginning-of-line) (point)))
(fill-column 78)