Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-uu.el @ 18:d95e72db5c07 r19-15b92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b92
author cvs
date Mon, 13 Aug 2007 08:49:43 +0200
parents 0293115a14e9
children 8fc7fe29b841
comparison
equal deleted inserted replaced
17:4579af9d8826 18:d95e72db5c07
533 (if (gnus-news-group-p gnus-newsgroup-name) 533 (if (gnus-news-group-p gnus-newsgroup-name)
534 gnus-newsgroup-name 534 gnus-newsgroup-name
535 "Various")))) 535 "Various"))))
536 (goto-char (point-min)) 536 (goto-char (point-min))
537 (when (re-search-forward "^Subject: ") 537 (when (re-search-forward "^Subject: ")
538 (delete-region (point) (point-at-eol)) 538 (delete-region (point) (gnus-point-at-eol))
539 (insert subject)) 539 (insert subject))
540 (goto-char (point-min)) 540 (goto-char (point-min))
541 (when (re-search-forward "^From: ") 541 (when (re-search-forward "^From: ")
542 (delete-region (point) (point-at-eol)) 542 (delete-region (point) (gnus-point-at-eol))
543 (insert from)) 543 (insert from))
544 (message-forward post) 544 (message-forward post)
545 (delete-file file) 545 (delete-file file)
546 (kill-buffer buf) 546 (kill-buffer buf)
547 (setq gnus-uu-digest-from-subject nil))) 547 (setq gnus-uu-digest-from-subject nil)))