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))) |
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 |