Mercurial > emacs
comparison lisp/gnus/gnus-uu.el @ 36856:e11fd97820c0
2001-03-17 ShengHuo ZHU <zsh@cs.rochester.edu>
* message.el (rmail-output): It is in rmailout.el not rmail.el.
* message.el (message-forward): local-variable-p takes an extra
argument in XEmacs.
* message.el (message-forward-decoded-p): New variable.
(message-forward-subject-author-subject): Use it.
(message-make-forward-subject): Use it.
(message-forward): Use it.
* gnus-uu.el (gnus-uu-digest-mail-forward): Use it.
author | ShengHuo ZHU <zsh@cs.rochester.edu> |
---|---|
date | Sat, 17 Mar 2001 16:02:56 +0000 |
parents | a35d9c07d074 |
children | a26d9b55abb6 |
comparison
equal
deleted
inserted
replaced
36855:cfb2e5ed7527 | 36856:e11fd97820c0 |
---|---|
562 (insert subject)) | 562 (insert subject)) |
563 (goto-char (point-min)) | 563 (goto-char (point-min)) |
564 (when (re-search-forward "^From:") | 564 (when (re-search-forward "^From:") |
565 (delete-region (point) (gnus-point-at-eol)) | 565 (delete-region (point) (gnus-point-at-eol)) |
566 (insert " " from)) | 566 (insert " " from)) |
567 (message-forward post t)) | 567 (let ((message-forward-decoded-p t)) |
568 (message-forward post t))) | |
568 (setq gnus-uu-digest-from-subject nil))) | 569 (setq gnus-uu-digest-from-subject nil))) |
569 | 570 |
570 (defun gnus-uu-digest-post-forward (&optional n) | 571 (defun gnus-uu-digest-post-forward (&optional n) |
571 "Digest and forward to a newsgroup." | 572 "Digest and forward to a newsgroup." |
572 (interactive "P") | 573 (interactive "P") |