Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 02:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(gnus-structured-field-decoder): New variable.

Browse source 
(gnus-unstructured-field-decoder): New variable.
(gnus-get-newsgroup-headers, gnus-nov-parse-line): Use
`gnus-structured-field-decoder' and
`gnus-unstructured-field-decoder' for Subject field.
This commit is contained in:
Kenichi Handa 1997-08-28 04:51:02 +00:00
parent 1613b43af7
commit 2bd3dcae0e
1 changed files with 24 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
lisp/gnus/gnus-sum.el
View file

@ -619,6 +619,17 @@ is not run if `gnus-visual' is nil."
:group 'gnus-summary-visual
:type 'hook)
;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
(defcustom gnus-structured-field-decoder 'identity
"Function to decode non-ASCII characters in structured field for summary."
:group 'gnus-various
:type 'function)
(defcustom gnus-unstructured-field-decoder 'identity
"Function to decode non-ASCII characters in unstructured field for summary."
:group 'gnus-various
:type 'function)
(defcustom gnus-parse-headers-hook
(list 'gnus-decode-rfc1522)
"*A hook called before parsing the headers."
@ -4144,12 +4155,18 @@ The resulting hash table is returned, or nil if no Xrefs were found."
(progn
(goto-char p)
(if (search-forward "\nsubject: " nil t)
(nnheader-header-value) "(none)"))
;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
(funcall
gnus-unstructured-field-decoder (nnheader-header-value))
"(none)"))
;; From.
(progn
(goto-char p)
(if (search-forward "\nfrom: " nil t)
(nnheader-header-value) "(nobody)"))
;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
(funcall
gnus-structured-field-decoder (nnheader-header-value))
"(nobody)"))
;; Date.
(progn
(goto-char p)
@ -4284,8 +4301,11 @@ The resulting hash table is returned, or nil if no Xrefs were found."
(setq header
(vector
number ; number
(gnus-nov-field) ; subject
(gnus-nov-field) ; from
;; 1997/5/4 by MORIOKA Tomohiko <morioka@jaist.ac.jp>
(funcall
gnus-unstructured-field-decoder (gnus-nov-field)) ; subject
(funcall
gnus-structured-field-decoder (gnus-nov-field)) ; from
(gnus-nov-field) ; date
(setq id (or (gnus-nov-field)
(nnheader-generate-fake-message-id))) ; id