Mercurial > hg > xemacs-beta
comparison lisp/gnus/nnfolder.el @ 118:7d55a9ba150c r20-1b11
Import from CVS: tag r20-1b11
author | cvs |
---|---|
date | Mon, 13 Aug 2007 09:24:17 +0200 |
parents | 9f59509498e1 |
children | 585fb297b004 |
comparison
equal
deleted
inserted
replaced
117:578fd4947a72 | 118:7d55a9ba150c |
---|---|
379 (nnmail-cache-insert (nnmail-fetch-field "message-id"))) | 379 (nnmail-cache-insert (nnmail-fetch-field "message-id"))) |
380 (setq result (if (stringp group) | 380 (setq result (if (stringp group) |
381 (list (cons group (nnfolder-active-number group))) | 381 (list (cons group (nnfolder-active-number group))) |
382 (setq art-group | 382 (setq art-group |
383 (nnmail-article-group 'nnfolder-active-number)))) | 383 (nnmail-article-group 'nnfolder-active-number)))) |
384 (if (null result) | 384 (if (and (null result) |
385 (yes-or-no-p "Moved to `junk' group; delete article? ")) | |
385 (setq result 'junk) | 386 (setq result 'junk) |
386 (setq result | 387 (setq result |
387 (car (nnfolder-save-mail result))))) | 388 (car (nnfolder-save-mail result))))) |
388 (when last | 389 (when last |
389 (save-excursion | 390 (save-excursion |
576 (save-excursion | 577 (save-excursion |
577 (let ((beg (point-min)) | 578 (let ((beg (point-min)) |
578 (end (point-max)) | 579 (end (point-max)) |
579 (obuf (current-buffer))) | 580 (obuf (current-buffer))) |
580 (nnfolder-possibly-change-folder (car group-art)) | 581 (nnfolder-possibly-change-folder (car group-art)) |
581 (goto-char (point-max)) | 582 (let ((buffer-read-only nil)) |
582 (unless (eolp) | 583 (goto-char (point-max)) |
583 (insert "\n")) | 584 (unless (eolp) |
584 (unless (bobp) | 585 (insert "\n")) |
585 (insert "\n")) | 586 (unless (bobp) |
586 (insert-buffer-substring obuf beg end)))) | 587 (insert "\n")) |
588 (insert-buffer-substring obuf beg end))))) | |
587 | 589 |
588 ;; Did we save it anywhere? | 590 ;; Did we save it anywhere? |
589 save-list)) | 591 save-list)) |
590 | 592 |
591 (defun nnfolder-insert-newsgroup-line (group-art) | 593 (defun nnfolder-insert-newsgroup-line (group-art) |