/[emacs]/emacs/lisp/gnus/rfc2047.el
ViewVC logotype

Diff of /emacs/lisp/gnus/rfc2047.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.10.6.2 by fx, Tue Jul 30 11:24:33 2002 UTC revision 1.10.6.3 by fx, Sun Aug 18 16:56:23 2002 UTC
# Line 265  The buffer may be narrowed." Line 265  The buffer may be narrowed."
265    (let* ((buff (current-buffer))    (let* ((buff (current-buffer))
266           (mime-charset (with-temp-buffer           (mime-charset (with-temp-buffer
267                           (insert-buffer-substring buff b e)                           (insert-buffer-substring buff b e)
268                           (mm-find-mime-charset-region b e)))                           (mm-find-mime-charset-region 1 (point-max))))
269           (cs (if (> (length mime-charset) 1)           (cs (if (> (length mime-charset) 1)
270                   (mm-charset-to-coding-system mime-charset)                   (error "Can't encode word: %s" (buffer-substring b e))
271                 (error "Can't encode word: %s" (buffer-substring b e))))                 (setq mime-charset (car mime-charset))
272                   (mm-charset-to-coding-system mime-charset)))
273           (encoding (or (cdr (assq mime-charset           (encoding (or (cdr (assq mime-charset
274                                    rfc2047-charset-encoding-alist))                                    rfc2047-charset-encoding-alist))
275                         'B))                         'B))

Legend:
Removed from v.1.10.6.2  
changed lines
  Added in v.1.10.6.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26