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. |
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) |
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) |