Mercurial > emacs

comparison lisp/gnus/nnsoup.el @ 82951:0fde48feb604

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import Gnus 5.10 from the v5_10 branch of the Gnus repository.
author Andreas Schwab <schwab@suse.de>
date Thu, 22 Jul 2004 16:45:51 +0000
parents 695cf19ef79e
children 88db2adda4b7 cce1c0ee76ee
comparison
equal deleted inserted replaced
56503:8bbd2323fbf2 82951:0fde48feb604
1 ;;; nnsoup.el --- SOUP access for Gnus 1 ;;; nnsoup.el --- SOUP access for Gnus
2 2
3 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002 3 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
4 ;; Free Software Foundation, Inc. 4 ;; Free Software Foundation, Inc.
5 5
6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7 ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet> 7 ;; Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
8 ;; Keywords: news, mail 8 ;; Keywords: news, mail
9 9
10 ;; This file is part of GNU Emacs. 10 ;; This file is part of GNU Emacs.
11 11
12 ;; GNU Emacs is free software; you can redistribute it and/or modify 12 ;; GNU Emacs is free software; you can redistribute it and/or modify
335 group) 335 group)
336 (when (file-exists-p (nnsoup-file prefix t)) 336 (when (file-exists-p (nnsoup-file prefix t))
337 (delete-file (nnsoup-file prefix t))) 337 (delete-file (nnsoup-file prefix t)))
338 t) 338 t)
339 (setcdr (cdr total-infolist) (delq info (cddr total-infolist))) 339 (setcdr (cdr total-infolist) (delq info (cddr total-infolist)))
340 (setq articles (gnus-sorted-complement articles range-list)))) 340 (setq articles (gnus-sorted-difference articles range-list))))
341 (when (not mod-time) 341 (when (not mod-time)
342 (setcdr (cdr total-infolist) (delq info (cddr total-infolist))))) 342 (setcdr (cdr total-infolist) (delq info (cddr total-infolist)))))
343 (if (cddr total-infolist) 343 (if (cddr total-infolist)
344 (setcar active (caaadr (cdr total-infolist))) 344 (setcar active (caaadr (cdr total-infolist)))
345 (setcar active (1+ (cdr active)))) 345 (setcar active (1+ (cdr active))))
654 (while (and areas (< (cdar (car areas)) article)) 654 (while (and areas (< (cdar (car areas)) article))
655 (setq areas (cdr areas))) 655 (setq areas (cdr areas)))
656 (and areas (car areas)))) 656 (and areas (car areas))))
657 657
658 (defvar nnsoup-old-functions 658 (defvar nnsoup-old-functions
659 (list message-send-mail-function message-send-news-function)) 659 (list message-send-mail-real-function message-send-news-function))
660 660
661 ;;;###autoload 661 ;;;###autoload
662 (defun nnsoup-set-variables () 662 (defun nnsoup-set-variables ()
663 "Use the SOUP methods for posting news and mailing mail." 663 "Use the SOUP methods for posting news and mailing mail."
664 (interactive) 664 (interactive)
665 (setq message-send-news-function 'nnsoup-request-post) 665 (setq message-send-news-function 'nnsoup-request-post)
666 (setq message-send-mail-function 'nnsoup-request-mail)) 666 (setq message-send-mail-real-function 'nnsoup-request-mail))
667 667
668 ;;;###autoload 668 ;;;###autoload
669 (defun nnsoup-revert-variables () 669 (defun nnsoup-revert-variables ()
670 "Revert posting and mailing methods to the standard Emacs methods." 670 "Revert posting and mailing methods to the standard Emacs methods."
671 (interactive) 671 (interactive)
672 (setq message-send-mail-function (car nnsoup-old-functions)) 672 (setq message-send-mail-real-function (car nnsoup-old-functions))
673 (setq message-send-news-function (cadr nnsoup-old-functions))) 673 (setq message-send-news-function (cadr nnsoup-old-functions)))
674 674
675 (defun nnsoup-store-reply (kind) 675 (defun nnsoup-store-reply (kind)
676 ;; Mostly stolen from `message.el'. 676 ;; Mostly stolen from `message.el'.
677 (require 'mail-utils) 677 (require 'mail-utils)