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

[Miles Bader]

Index: emacs/lisp/gnus/gnus-agent.el
diff -c emacs/lisp/gnus/gnus-agent.el:1.14 emacs/lisp/gnus/gnus-agent.el:1.15
*** emacs/lisp/gnus/gnus-agent.el:1.14  Wed Feb  9 15:50:39 2005
--- emacs/lisp/gnus/gnus-agent.el       Sun Apr 10 04:20:13 2005
***************
*** 1,5 ****
  ;;; gnus-agent.el --- unplugged support for Gnus
! ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,5 ----
  ;;; gnus-agent.el --- unplugged support for Gnus
! ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 1371,1377 ****
          (nnheader-translate-file-chars
           (nnheader-replace-duplicate-chars-in-string
            (nnheader-replace-chars-in-string
!            (gnus-group-real-name group)
             ?/ ?_)
            ?. ?_)))
    (if (or nnmail-use-long-file-names
--- 1371,1377 ----
          (nnheader-translate-file-chars
           (nnheader-replace-duplicate-chars-in-string
            (nnheader-replace-chars-in-string
!            (gnus-group-real-name (gnus-group-decoded-name group))
             ?/ ?_)
            ?. ?_)))
    (if (or nnmail-use-long-file-names
***************
*** 1387,1394 ****
    ;; unplugged.  The agent must, therefore, use the same directory
    ;; while plugged.
    (let ((gnus-command-method (or gnus-command-method
!                                  (gnus-find-method-for-group group))))
!     (nnmail-group-pathname (gnus-group-real-name group) 
(gnus-agent-directory))))
  
  (defun gnus-agent-get-function (method)
    (if (gnus-online method)
--- 1387,1396 ----
    ;; unplugged.  The agent must, therefore, use the same directory
    ;; while plugged.
    (let ((gnus-command-method (or gnus-command-method
!                                (gnus-find-method-for-group group))))
!     (nnmail-group-pathname (gnus-group-real-name
!                           (gnus-group-decoded-name group))
!                          (gnus-agent-directory))))
  
  (defun gnus-agent-get-function (method)
    (if (gnus-online method)