Mercurial > emacs
comparison lisp/gnus/mm-decode.el @ 35453:26726eff41ca zsh-sync-ognus-2
2001-01-21 ShengHuo ZHU <zsh@cs.rochester.edu>
* message.el (message-forward): Use mule4.
* mm-util.el (mm-string-as-unibyte): New.
* message.el (message-forward): Use it.
* message.el (message-cite-original-without-signature): Don't peel
off the blank line.
(message-get-reply-headers): Add Cc if it is not in follow-to.
* message.el (message-send-mail): Content-Type may not be there.
By Alberto Lusiani.
* gnus-art.el (article-display-x-face): Insert X-Face if there is
not.
* rfc2047.el (rfc2047-fold-region): Don't insert LWSP if there is
one.
* gnus-win.el (gnus-configure-windows): switch-to-buffer in XEmacs.
(gnus-remove-some-windows): Ditto.
* mm-decode.el (mm-interactively-view-part): Don't copy-sequence
handle.
* gnus-art.el (gnus-mime-view-part): Copy it.
(gnus-mime-view-part-as-type): Add into gnus-article-mime-handles.
* nnmail.el (nnmail-get-new-mail): Find group only if file is not
orig-file. Use ',source.
* nnslashdot.el (nnslashdot-request-list): Get the right year. By
Lars Magne Ingebrigtsen.
* pop3.el (pop3-get-message-count): Andrew Innes
<andrewi@gnu.org>'s patch of 1999-12-01 was not fully committed.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Sun, 21 Jan 2001 05:33:42 +0000 |
| parents | 0b4c50eb2002 |
| children | a26d9b55abb6 |
comparison
equal
deleted
inserted
replaced
| 35452:00c8bb05bc55 | 35453:26726eff41ca |
|---|---|
| 728 (completing-read "Viewer: " methods)))) | 728 (completing-read "Viewer: " methods)))) |
| 729 (when (string= method "") | 729 (when (string= method "") |
| 730 (error "No method given")) | 730 (error "No method given")) |
| 731 (if (string-match "^[^% \t]+$" method) | 731 (if (string-match "^[^% \t]+$" method) |
| 732 (setq method (concat method " %s"))) | 732 (setq method (concat method " %s"))) |
| 733 (mm-display-external (copy-sequence handle) method))) | 733 (mm-display-external handle method))) |
| 734 | 734 |
| 735 (defun mm-preferred-alternative (handles &optional preferred) | 735 (defun mm-preferred-alternative (handles &optional preferred) |
| 736 "Say which of HANDLES are preferred." | 736 "Say which of HANDLES are preferred." |
| 737 (let ((prec (if preferred (list preferred) | 737 (let ((prec (if preferred (list preferred) |
| 738 (mm-preferred-alternative-precedence handles))) | 738 (mm-preferred-alternative-precedence handles))) |