home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / interfaces / gnus-mail.shar / nnspool-diff < prev    next >
Encoding:
Text File  |  1991-05-03  |  1.1 KB  |  35 lines
  1. diff -c gnus-3.13-orig/nnspool.el gnus-3.13-new/nnspool.el
  2. *** gnus-3.13-orig/nnspool.el    Thu Jul  5 11:44:30 1990
  3. --- gnus-3.13-new/nnspool.el    Thu Jul  5 11:46:00 1990
  4. ***************
  5. *** 258,264 ****
  6.   (defun nnspool-request-list ()
  7.     "List valid newsgoups."
  8.     (save-excursion
  9. !     (nnspool-find-file nnspool-active-file)))
  10.   
  11.   (defun nnspool-request-last ()
  12.     "Set current article pointer to the previous article
  13. --- 258,264 ----
  14.   (defun nnspool-request-list ()
  15.     "List valid newsgoups."
  16.     (save-excursion
  17. !     (nnspool-find-file (nnspool-pick-active-file))))
  18.   
  19.   (defun nnspool-request-last ()
  20.     "Set current article pointer to the previous article
  21. ***************
  22. *** 373,375 ****
  23. --- 373,383 ----
  24.         (setq idx (1+ idx)))
  25.       string
  26.       ))
  27. + 
  28. + (defun nnspool-pick-active-file ()
  29. +   "Return a filename string for the active file."
  30. +   ;; If the user has defined his own active file creator,
  31. +   ;; use it.  Otherwise, return the "standard" active file.
  32. +   (if (fboundp 'nnspool-personal-active-file)
  33. +       (nnspool-personal-active-file)
  34. +     nnspool-active-file))
  35.