/[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.12.2.3 by miles, Thu Sep 16 00:12:16 2004 UTC revision 1.12.2.4 by miles, Wed Oct 6 05:21:53 2004 UTC
# Line 115  The defined renderer types are: Line 115  The defined renderer types are:
115  `lynx' : use lynx;  `lynx' : use lynx;
116  `html2text' : use html2text;  `html2text' : use html2text;
117  nil    : use external viewer."  nil    : use external viewer."
118      :version "21.4"
119    :type '(choice (const w3)    :type '(choice (const w3)
120                   (const w3m)                   (const w3m)
121                   (const w3m-standalone)                   (const w3m-standalone)
# Line 123  nil    : use external viewer." Line 124  nil    : use external viewer."
124                   (const html2text)                   (const html2text)
125                   (const nil)                   (const nil)
126                   (function))                   (function))
   :version "21.3"  
127    :group 'mime-display)    :group 'mime-display)
128    
129  (defvar mm-inline-text-html-renderer nil  (defvar mm-inline-text-html-renderer nil
# Line 134  It is suggested to customize `mm-text-ht Line 134  It is suggested to customize `mm-text-ht
134    "If non-nil, Gnus will allow retrieving images in HTML contents with    "If non-nil, Gnus will allow retrieving images in HTML contents with
135  the <img> tags.  It has no effect on Emacs/w3.  See also the  the <img> tags.  It has no effect on Emacs/w3.  See also the
136  documentation for the `mm-w3m-safe-url-regexp' variable."  documentation for the `mm-w3m-safe-url-regexp' variable."
137      :version "21.4"
138    :type 'boolean    :type 'boolean
139    :group 'mime-display)    :group 'mime-display)
140    
# Line 280  type inline." Line 281  type inline."
281      "application/pdf" "application/x-dvi")      "application/pdf" "application/x-dvi")
282    "List of media types for which the external viewer will not be killed    "List of media types for which the external viewer will not be killed
283  when selecting a different article."  when selecting a different article."
284      :version "21.4"
285    :type '(repeat string)    :type '(repeat string)
286    :group 'mime-display)    :group 'mime-display)
287    
# Line 381  If not set, `default-directory' will be Line 383  If not set, `default-directory' will be
383    
384  (defcustom mm-external-terminal-program "xterm"  (defcustom mm-external-terminal-program "xterm"
385    "The program to start an external terminal."    "The program to start an external terminal."
386      :version "21.4"
387    :type 'string    :type 'string
388    :group 'mime-display)    :group 'mime-display)
389    
# Line 413  If not set, `default-directory' will be Line 416  If not set, `default-directory' will be
416    "Option of verifying signed parts.    "Option of verifying signed parts.
417  `never', not verify; `always', always verify;  `never', not verify; `always', always verify;
418  `known', only verify known protocols.  Otherwise, ask user."  `known', only verify known protocols.  Otherwise, ask user."
419      :version "21.4"
420    :type '(choice (item always)    :type '(choice (item always)
421                   (item never)                   (item never)
422                   (item :tag "only known protocols" known)                   (item :tag "only known protocols" known)
# Line 619  Postpone undisplaying of viewers for typ Line 623  Postpone undisplaying of viewers for typ
623    "Copy the contents of the current buffer to a fresh buffer."    "Copy the contents of the current buffer to a fresh buffer."
624    (save-excursion    (save-excursion
625      (let ((obuf (current-buffer))      (let ((obuf (current-buffer))
626              (multibyte enable-multibyte-characters)
627            beg)            beg)
628        (goto-char (point-min))        (goto-char (point-min))
629        (search-forward-regexp "^\n" nil t)        (search-forward-regexp "^\n" nil t)
630        (setq beg (point))        (setq beg (point))
631        (set-buffer (generate-new-buffer " *mm*"))        (set-buffer (generate-new-buffer " *mm*"))
632          ;; Preserve the data's unibyteness (for url-insert-file-contents).
633          (set-buffer-multibyte multibyte)
634        (insert-buffer-substring obuf beg)        (insert-buffer-substring obuf beg)
635        (current-buffer))))        (current-buffer))))
636    
# Line 1482  If RECURSIVE, search recursively." Line 1489  If RECURSIVE, search recursively."
1489    
1490  (provide 'mm-decode)  (provide 'mm-decode)
1491    
1492  ;;; arch-tag: 4f35d360-56b8-4030-9388-3ed82d359b9b  ;; arch-tag: 4f35d360-56b8-4030-9388-3ed82d359b9b
1493  ;;; mm-decode.el ends here  ;;; mm-decode.el ends here

Legend:
Removed from v.1.12.2.3  
changed lines
  Added in v.1.12.2.4

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