/[emacs]/emacs/lisp/gnus/nnsoup.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnsoup.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5.18.2 by miles, Tue Oct 14 23:34:51 2003 UTC revision 1.5.18.3 by miles, Thu Sep 16 00:12:16 2004 UTC
# Line 1  Line 1 
1  ;;; nnsoup.el --- SOUP access for Gnus  ;;; nnsoup.el --- SOUP access for Gnus
2    
3  ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002  ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
4  ;;      Free Software Foundation, Inc.  ;;      Free Software Foundation, Inc.
5    
6  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>  ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
7  ;;      Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>  ;;      Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
8  ;; Keywords: news, mail  ;; Keywords: news, mail
9    
10  ;; This file is part of GNU Emacs.  ;; This file is part of GNU Emacs.
# Line 337  backend for the messages.") Line 337  backend for the messages.")
337                    (delete-file (nnsoup-file prefix t)))                    (delete-file (nnsoup-file prefix t)))
338                  t)                  t)
339            (setcdr (cdr total-infolist) (delq info (cddr total-infolist)))            (setcdr (cdr total-infolist) (delq info (cddr total-infolist)))
340            (setq articles (gnus-sorted-complement articles range-list))))            (setq articles (gnus-sorted-difference articles range-list))))
341        (when (not mod-time)        (when (not mod-time)
342          (setcdr (cdr total-infolist) (delq info (cddr total-infolist)))))          (setcdr (cdr total-infolist) (delq info (cddr total-infolist)))))
343      (if (cddr total-infolist)      (if (cddr total-infolist)
# Line 656  backend for the messages.") Line 656  backend for the messages.")
656      (and areas (car areas))))      (and areas (car areas))))
657    
658  (defvar nnsoup-old-functions  (defvar nnsoup-old-functions
659    (list message-send-mail-function message-send-news-function))    (list message-send-mail-real-function message-send-news-function))
660    
661  ;;;###autoload  ;;;###autoload
662  (defun nnsoup-set-variables ()  (defun nnsoup-set-variables ()
663    "Use the SOUP methods for posting news and mailing mail."    "Use the SOUP methods for posting news and mailing mail."
664    (interactive)    (interactive)
665    (setq message-send-news-function 'nnsoup-request-post)    (setq message-send-news-function 'nnsoup-request-post)
666    (setq message-send-mail-function 'nnsoup-request-mail))    (setq message-send-mail-real-function 'nnsoup-request-mail))
667    
668  ;;;###autoload  ;;;###autoload
669  (defun nnsoup-revert-variables ()  (defun nnsoup-revert-variables ()
670    "Revert posting and mailing methods to the standard Emacs methods."    "Revert posting and mailing methods to the standard Emacs methods."
671    (interactive)    (interactive)
672    (setq message-send-mail-function (car nnsoup-old-functions))    (setq message-send-mail-real-function (car nnsoup-old-functions))
673    (setq message-send-news-function (cadr nnsoup-old-functions)))    (setq message-send-news-function (cadr nnsoup-old-functions)))
674    
675  (defun nnsoup-store-reply (kind)  (defun nnsoup-store-reply (kind)

Legend:
Removed from v.1.5.18.2  
changed lines
  Added in v.1.5.18.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26