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)