Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-uu.el @ 22:8fc7fe29b841 r19-15b94

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b94
author cvs
date Mon, 13 Aug 2007 08:50:29 +0200
parents d95e72db5c07
children 1917ad0d78d7
comparison
equal deleted inserted replaced
21:b88636d63495 22:8fc7fe29b841
503 "Digests and forwards all articles in this series." 503 "Digests and forwards all articles in this series."
504 (interactive "P") 504 (interactive "P")
505 (let ((gnus-uu-save-in-digest t) 505 (let ((gnus-uu-save-in-digest t)
506 (file (make-temp-name (nnheader-concat gnus-uu-tmp-dir "forward"))) 506 (file (make-temp-name (nnheader-concat gnus-uu-tmp-dir "forward")))
507 buf subject from newsgroups) 507 buf subject from newsgroups)
508 (setq gnus-uu-digest-from-subject nil) 508 (gnus-setup-message 'forward
509 (gnus-uu-decode-save n file) 509 (setq gnus-uu-digest-from-subject nil)
510 (setq buf (switch-to-buffer (get-buffer-create " *gnus-uu-forward*"))) 510 (gnus-uu-decode-save n file)
511 (gnus-add-current-to-buffer-list) 511 (setq buf (switch-to-buffer (get-buffer-create " *gnus-uu-forward*")))
512 (erase-buffer) 512 (gnus-add-current-to-buffer-list)
513 (delete-other-windows) 513 (erase-buffer)
514 (insert-file file) 514 (insert-file file)
515 (let ((fs gnus-uu-digest-from-subject)) 515 (let ((fs gnus-uu-digest-from-subject))
516 (when fs 516 (when fs
517 (setq from (caar fs) 517 (setq from (caar fs)
518 subject (gnus-simplify-subject-fuzzy (cdar fs)) 518 subject (gnus-simplify-subject-fuzzy (cdar fs))
519 fs (cdr fs)) 519 fs (cdr fs))
520 (while (and fs (or from subject)) 520 (while (and fs (or from subject))
521 (when from 521 (when from
522 (unless (string= from (caar fs)) 522 (unless (string= from (caar fs))
523 (setq from nil))) 523 (setq from nil)))
524 (when subject 524 (when subject
525 (unless (string= (gnus-simplify-subject-fuzzy (cdar fs)) 525 (unless (string= (gnus-simplify-subject-fuzzy (cdar fs))
526 subject) 526 subject)
527 (setq subject nil))) 527 (setq subject nil)))
528 (setq fs (cdr fs)))) 528 (setq fs (cdr fs))))
529 (unless subject 529 (unless subject
530 (setq subject "Digested Articles")) 530 (setq subject "Digested Articles"))
531 (unless from 531 (unless from
532 (setq from 532 (setq from
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) (gnus-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) (gnus-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)))
548 548
549 (defun gnus-uu-digest-post-forward (&optional n) 549 (defun gnus-uu-digest-post-forward (&optional n)