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

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

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

revision 1.7 by zsh, Thu Feb 7 15:57:55 2002 UTC revision 1.7.4.1 by miles, Fri Apr 4 06:20:21 2003 UTC
# Line 228  Line 228 
228        (setq handles gnus-article-mime-handles))        (setq handles gnus-article-mime-handles))
229      (when handles      (when handles
230        (setq gnus-article-mime-handles        (setq gnus-article-mime-handles
231              (nconc gnus-article-mime-handles              (nconc gnus-article-mime-handles
232                     (if (listp (car handles))                     (if (listp (car handles))
233                         handles (list handles))))))                         handles (list handles))))))
234    (fundamental-mode)    (fundamental-mode)
235    (goto-char (point-min)))    (goto-char (point-min)))
# Line 266  Line 266 
266          (insert "----------\n\n")          (insert "----------\n\n")
267          (when handles          (when handles
268            (setq gnus-article-mime-handles            (setq gnus-article-mime-handles
269                  (nconc gnus-article-mime-handles                  (nconc gnus-article-mime-handles
270                         (if (listp (car handles))                         (if (listp (car handles))
271                             handles (list handles)))))                             handles (list handles)))))
272          (mm-handle-set-undisplayer          (mm-handle-set-undisplayer
273           handle           handle

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.7.4.1

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