projects
/
elisp
/
flim.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* Sync up to flim-1_10_2 from flim-1_10_0.
[elisp/flim.git]
/
ew-dec.el
diff --git
a/ew-dec.el
b/ew-dec.el
index
4a70444
..
d958195
100644
(file)
--- a/
ew-dec.el
+++ b/
ew-dec.el
@@
-26,7
+26,7
@@
each line is separated by CRLF."
(tmp (assoc key ew-decode-field-cache-buf)))
(if tmp
(cdr tmp)
(tmp (assoc key ew-decode-field-cache-buf)))
(if tmp
(cdr tmp)
- (progn
+ (let ((decoded (ew-decode-field-no-cache field-name field-body)))
(setq tmp (nthcdr ew-decode-field-cache-num
ew-decode-field-cache-buf))
(if (cdr tmp)
(setq tmp (nthcdr ew-decode-field-cache-num
ew-decode-field-cache-buf))
(if (cdr tmp)
@@
-38,9
+38,7
@@
each line is separated by CRLF."
(cons (cons nil nil)
ew-decode-field-cache-buf)))
(setcar (car ew-decode-field-cache-buf) key)
(cons (cons nil nil)
ew-decode-field-cache-buf)))
(setcar (car ew-decode-field-cache-buf) key)
- (setcdr (car ew-decode-field-cache-buf)
- (ew-decode-field-no-cache
- field-name field-body))
+ (setcdr (car ew-decode-field-cache-buf) decoded)
(cdar ew-decode-field-cache-buf)))))
(defun ew-analyze-field-to-decode (field-name field-body)
(cdar ew-decode-field-cache-buf)))))
(defun ew-analyze-field-to-decode (field-name field-body)
@@
-589,4
+587,10
@@
each line is separated by CRLF."
(ew-decode-field "From"" ()=?+US-ASCII?Q??=?+US-ASCII?Q?a?= =?US-ASCII?Q??= <akr@foo> (aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)")
(ew-decode-field "From"" ()=?+US-ASCII?Q??=?+US-ASCII?Q?a?= =?US-ASCII?Q??= <akr@foo> (aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa)")
+(let ((ew-default-mime-charset 'iso-2022-jp-2))
+ (ew-decode-field-no-cache
+ "From" "\"Cl\351ment Brousset\" <cbrousset@staffandline.com>"))
+
+(ew-decode-field-no-cache "From" " \"Jacek \\\"Jaytee\\\" Szyd\263owski\" <jaytee@friko.onet.pl>")
+
)
)