emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/gnus/nnsoup.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/gnus/nnsoup.el [lexbind]
Date: Wed, 15 Sep 2004 20:39:59 -0400

Index: emacs/lisp/gnus/nnsoup.el
diff -c emacs/lisp/gnus/nnsoup.el:1.5.18.2 emacs/lisp/gnus/nnsoup.el:1.5.18.3
*** emacs/lisp/gnus/nnsoup.el:1.5.18.2  Tue Oct 14 23:34:51 2003
--- emacs/lisp/gnus/nnsoup.el   Thu Sep 16 00:12:16 2004
***************
*** 1,10 ****
  ;;; nnsoup.el --- SOUP access for Gnus
  
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002
  ;;    Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
! ;;    Masanobu UMEDA <address@hidden>
  ;; Keywords: news, mail
  
  ;; This file is part of GNU Emacs.
--- 1,10 ----
  ;;; nnsoup.el --- SOUP access for Gnus
  
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
  ;;    Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
! ;;    Masanobu UMEDA <address@hidden>
  ;; Keywords: news, mail
  
  ;; This file is part of GNU Emacs.
***************
*** 337,343 ****
                  (delete-file (nnsoup-file prefix t)))
                t)
          (setcdr (cdr total-infolist) (delq info (cddr total-infolist)))
!         (setq articles (gnus-sorted-complement articles range-list))))
        (when (not mod-time)
        (setcdr (cdr total-infolist) (delq info (cddr total-infolist)))))
      (if (cddr total-infolist)
--- 337,343 ----
                  (delete-file (nnsoup-file prefix t)))
                t)
          (setcdr (cdr total-infolist) (delq info (cddr total-infolist)))
!         (setq articles (gnus-sorted-difference articles range-list))))
        (when (not mod-time)
        (setcdr (cdr total-infolist) (delq info (cddr total-infolist)))))
      (if (cddr total-infolist)
***************
*** 656,675 ****
      (and areas (car areas))))
  
  (defvar nnsoup-old-functions
!   (list message-send-mail-function message-send-news-function))
  
  ;;;###autoload
  (defun nnsoup-set-variables ()
    "Use the SOUP methods for posting news and mailing mail."
    (interactive)
    (setq message-send-news-function 'nnsoup-request-post)
!   (setq message-send-mail-function 'nnsoup-request-mail))
  
  ;;;###autoload
  (defun nnsoup-revert-variables ()
    "Revert posting and mailing methods to the standard Emacs methods."
    (interactive)
!   (setq message-send-mail-function (car nnsoup-old-functions))
    (setq message-send-news-function (cadr nnsoup-old-functions)))
  
  (defun nnsoup-store-reply (kind)
--- 656,675 ----
      (and areas (car areas))))
  
  (defvar nnsoup-old-functions
!   (list message-send-mail-real-function message-send-news-function))
  
  ;;;###autoload
  (defun nnsoup-set-variables ()
    "Use the SOUP methods for posting news and mailing mail."
    (interactive)
    (setq message-send-news-function 'nnsoup-request-post)
!   (setq message-send-mail-real-function 'nnsoup-request-mail))
  
  ;;;###autoload
  (defun nnsoup-revert-variables ()
    "Revert posting and mailing methods to the standard Emacs methods."
    (interactive)
!   (setq message-send-mail-real-function (car nnsoup-old-functions))
    (setq message-send-news-function (cadr nnsoup-old-functions)))
  
  (defun nnsoup-store-reply (kind)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]