Show
Ignore:
Timestamp:
2005年09月10日 10時16分00秒 (3 years ago)
Author:
miyoshi
Message:

--

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/gnus/gnus-art.el

    r3828 r3863  
    3030(eval-when-compile 
    3131  (require 'cl) 
    32   (defvar tool-bar-map)) 
     32  (defvar tool-bar-map) 
     33  (defvar w3m-minor-mode-map)) 
    3334 
    3435(require 'gnus) 
    …… 
    236237no signature in the buffer.  If it is a string, it will be used as a 
    237238regexp.  If it matches, the text in question is not a signature." 
    238   :type '(choice (integer :value 200) 
     239  :type '(choice (const nil) 
     240                 (integer :value 200) 
    239241                 (number :value 4.0) 
    240242                 (function :value fun) 
    …… 
    869871on parts -- for instance, adding Vcard info to a database." 
    870872  :group 'gnus-article-mime 
    871   :type 'function) 
     873  :type '(choice (const nil) 
     874                 function)) 
    872875 
    873876(defcustom gnus-mime-multipart-functions nil 
    …… 
    48604863              (setq beg (point))) 
    48614864            (gnus-article-insert-newline) 
    4862             (mm-insert-inline handle (mm-get-part handle)) 
     4865            (mm-insert-inline handle 
     4866                              (let ((charset 
     4867                                     (mail-content-type-get 
     4868                                      (mm-handle-type handle) 'charset))) 
     4869                                (if (eq charset 'gnus-decoded) 
     4870                                    (mm-get-part handle) 
     4871                                  (mm-decode-string (mm-get-part handle) 
     4872                                                    charset)))) 
    48634873            (goto-char (point-max)))) 
    48644874          ;; Do highlighting.