projects
/
elisp
/
semi.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
cfa4d2e
)
(eword-decode-header): Unfold fields including encoded-words.
author
morioka
<morioka>
Mon, 16 Feb 1998 21:25:30 +0000
(21:25 +0000)
committer
morioka
<morioka>
Mon, 16 Feb 1998 21:25:30 +0000
(21:25 +0000)
eword-decode.el
patch
|
blob
|
history
diff --git
a/eword-decode.el
b/eword-decode.el
index
0ad99ae
..
60c5621
100644
(file)
--- a/
eword-decode.el
+++ b/
eword-decode.el
@@
-10,7
+10,7
@@
;; Renamed: 1993/06/03 to tiny-mime.el
;; Renamed: 1995/10/03 from tiny-mime.el (split off encoder)
;; Renamed: 1997/02/22 from tm-ew-d.el
;; Renamed: 1993/06/03 to tiny-mime.el
;; Renamed: 1995/10/03 from tiny-mime.el (split off encoder)
;; Renamed: 1997/02/22 from tm-ew-d.el
-;; Version: $Revision: 1.3 $
+;; Version: $Revision: 1.4 $
;; Keywords: encoded-word, MIME, multilingual, header, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
;; Keywords: encoded-word, MIME, multilingual, header, mail, news
;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@
-45,7
+45,7
@@
;;;
(defconst eword-decode-RCS-ID
;;;
(defconst eword-decode-RCS-ID
- "$Id: eword-decode.el,v 1.3 1998-02-16 20:40:19 morioka Exp $")
+ "$Id: eword-decode.el,v 1.4 1998-02-16 21:25:30 morioka Exp $")
(defconst eword-decode-version (get-version-string eword-decode-RCS-ID))
(defconst eword-decode-version (get-version-string eword-decode-RCS-ID))
@@
-185,7
+185,7
@@
such as a version of Net$cape)."
;;;
(defcustom eword-decode-ignored-field-list
;;;
(defcustom eword-decode-ignored-field-list
- '(newsgroups message-id path)
+ '(newsgroups path lines nntp-posting-host message-id date)
"*List of field-names to be ignored when decoding.
Each field name must be symbol."
:group 'eword-decode
"*List of field-names to be ignored when decoding.
Each field name must be symbol."
:group 'eword-decode
@@
-239,9
+239,12
@@
If SEPARATOR is not nil, it is used as header separator."
(t
;; Decode as unstructured field
(save-restriction
(t
;; Decode as unstructured field
(save-restriction
- (narrow-to-region p end)
+ (narrow-to-region beg (1+ end))
(decode-mime-charset-region p end default-charset)
(decode-mime-charset-region p end default-charset)
- (eword-decode-region p (point-max))
+ (goto-char p)
+ (if (re-search-forward eword-encoded-word-regexp
+ nil t)
+ (eword-decode-region beg (point-max) 'unfold))
)))))
(eword-decode-region (point-min) (point-max) t)
)))))
)))))
(eword-decode-region (point-min) (point-max) t)
)))))