projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
655ac75
)
Fix previous commit.
author
Katsumi Yamaoka
<yamaoka@jpl.org>
Sat, 15 Oct 2005 11:21:11 +0000
(11:21 +0000)
committer
Katsumi Yamaoka
<yamaoka@jpl.org>
Sat, 15 Oct 2005 11:21:11 +0000
(11:21 +0000)
lisp/rfc2047.el
patch
|
blob
|
history
diff --git
a/lisp/rfc2047.el
b/lisp/rfc2047.el
index
5dba0a4
..
7bb2ba7
100644
(file)
--- a/
lisp/rfc2047.el
+++ b/
lisp/rfc2047.el
@@
-833,14
+833,14
@@
derived from CHARSET."
;; succeeding encoded words.
(setq e (match-beginning 0))
(let ((charset (match-string 1))
;; succeeding encoded words.
(setq e (match-beginning 0))
(let ((charset (match-string 1))
- (encoding (char-after (match-beginning
3
)))
- (word (match-string
4
)))
+ (encoding (char-after (match-beginning
2
)))
+ (word (match-string
3
)))
(delete-region e (match-end 0))
(insert (rfc2047-decode-cte charset encoding word))
(while (looking-at rfc2047-encoded-word-regexp)
(setq charset (match-string 1)
(delete-region e (match-end 0))
(insert (rfc2047-decode-cte charset encoding word))
(while (looking-at rfc2047-encoded-word-regexp)
(setq charset (match-string 1)
- encoding (char-after (match-beginning
3
))
- word (match-string
4
))
+ encoding (char-after (match-beginning
2
))
+ word (match-string
3
))
(delete-region (point) (match-end 0))
(insert (rfc2047-decode-cte charset encoding word))))
;; Then decode the text encoding.
(delete-region (point) (match-end 0))
(insert (rfc2047-decode-cte charset encoding word))))
;; Then decode the text encoding.