From mboxrd@z Thu Jan  1 00:00:00 1970
X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/7550
Path: main.gmane.org!not-for-mail
From: sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor])
Newsgroups: gmane.emacs.gnus.general
Subject: Red 0.10: gnus-group-make-group broken - FIX
Date: 11 Aug 1996 14:58:02 +0200
Sender: sperber@informatik.uni-tuebingen.de
Message-ID: <y9lk9v65b8l.fsf@modas.informatik.uni-tuebingen.de>
NNTP-Posting-Host: coloc-standby.netfonds.no
Mime-Version: 1.0 (generated by tm-edit 7.52)
Content-Type: text/plain; charset=US-ASCII
X-Trace: main.gmane.org 1035147847 7599 80.91.224.250 (20 Oct 2002 21:04:07 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Sun, 20 Oct 2002 21:04:07 +0000 (UTC)
Return-Path: ding-request@ifi.uio.no
Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.5/8.6.9) with SMTP id GAA01687 for <steve@miranova.com>; Sun, 11 Aug 1996 06:18:04 -0700
Original-Received: from macon.informatik.uni-tuebingen.de (macon.Informatik.Uni-Tuebingen.De [134.2.12.17]) by ifi.uio.no with SMTP (8.6.11/ifi2.4) 
	id <OAA20455@ifi.uio.no> for <ding@ifi.uio.no> ; Sun, 11 Aug 1996 14:58:08 +0200
Original-Received: from modas.Informatik.Uni-Tuebingen.De by macon.informatik.uni-tuebingen.de (AIX 3.2/UCB 5.64/4.03)
          id AA21938; Sun, 11 Aug 1996 14:58:05 +0200
Original-Received: by modas.informatik.uni-tuebingen.de (AIX 4.1/UCB 5.64/4.03)
          id AA20358; Sun, 11 Aug 1996 14:58:03 +0200
Original-To: ding@ifi.uio.no
Original-Lines: 64
X-Mailer: Red Gnus v0.10/XEmacs 19.14
Xref: main.gmane.org gmane.emacs.gnus.general:7550
X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:7550


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)