/[emacs]/emacs/lisp/gnus/mm-decode.el
ViewVC logotype

Diff of /emacs/lisp/gnus/mm-decode.el

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

revision 1.26 by lektu, Wed Aug 31 13:06:31 2005 UTC revision 1.27 by miles, Wed Sep 28 05:26:02 2005 UTC
# Line 1058  external if displayed external." Line 1058  external if displayed external."
1058  (defun mm-insert-part (handle)  (defun mm-insert-part (handle)
1059    "Insert the contents of HANDLE in the current buffer."    "Insert the contents of HANDLE in the current buffer."
1060    (save-excursion    (save-excursion
1061      (insert (if (mm-multibyte-p)      (insert
1062                  (mm-string-as-multibyte (mm-get-part handle))       (cond ((eq (mail-content-type-get (mm-handle-type handle) 'charset)
1063                (mm-get-part handle)))))                  'gnus-decoded)
1064                (with-current-buffer (mm-handle-buffer handle)
1065                  (buffer-string)))
1066               ((mm-multibyte-p)
1067                (mm-string-as-multibyte (mm-get-part handle)))
1068               (t
1069                (mm-get-part handle))))))
1070    
1071  (defun mm-file-name-delete-whitespace (file-name)  (defun mm-file-name-delete-whitespace (file-name)
1072    "Remove all whitespace characters from FILE-NAME."    "Remove all whitespace characters from FILE-NAME."

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

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