Mercurial > emacs
comparison lisp/gnus/nnsoup.el @ 82951:0fde48feb604
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) |