Gnus development mailing list
 help / color / mirror / Atom feed
* Red 0.10: gnus-group-make-group broken - FIX
@ 1996-08-11 12:58 Michael Sperber [Mr. Preprocessor]
  0 siblings, 0 replies; only message in thread
From: Michael Sperber [Mr. Preprocessor] @ 1996-08-11 12:58 UTC (permalink / raw)



It creates a string in the method when a symbol is called for.  I hope
the fix is politically correct.

Cheers =8-} Mike

*** lisp/gnus.el~	Sat Aug 10 07:02:40 1996
--- lisp/gnus.el	Sun Aug 11 14:52:06 1996
***************
*** 792,808 ****
  	  nil t nil 'gnus-method-history)))
      (cond 
       ((equal method "")
!       (setq method gnus-select-method))
       ((assoc method gnus-valid-select-methods)
!       (list method
  	    (if (memq 'prompt-address
  		      (assoc method gnus-valid-select-methods))
  		(read-string "Address: ")
  	      "")))
       ((assoc method gnus-server-alist)
!       (list method))
       (t
!       (list method "")))))
  
  ;;; User-level commands.
  
--- 792,808 ----
  	  nil t nil 'gnus-method-history)))
      (cond 
       ((equal method "")
!       gnus-select-method)
       ((assoc method gnus-valid-select-methods)
!       (list (intern method)
  	    (if (memq 'prompt-address
  		      (assoc method gnus-valid-select-methods))
  		(read-string "Address: ")
  	      "")))
       ((assoc method gnus-server-alist)
!       (list (intern method)))
       (t
!       (list (intern method) "")))))
  
  ;;; User-level commands.
  
*** lisp/gnus-group.el~	Sat Aug 10 01:24:02 1996
--- lisp/gnus-group.el	Sun Aug 11 14:52:03 1996
***************
*** 1312,1318 ****
  
    (let* ((meth (when (and method
  			  (not (gnus-server-equal method gnus-select-method)))
! 		 (if address (list (intern method) address)
  		   method)))
  	 (nname (if method (gnus-group-prefixed-name name meth) name))
  	 backend info)
--- 1312,1318 ----
  
    (let* ((meth (when (and method
  			  (not (gnus-server-equal method gnus-select-method)))
! 		 (if address (list (car method) address)
  		   method)))
  	 (nname (if method (gnus-group-prefixed-name name meth) name))
  	 backend info)


^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~1996-08-11 12:58 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1996-08-11 12:58 Red 0.10: gnus-group-make-group broken - FIX Michael Sperber [Mr. Preprocessor]

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).