From: sperber@informatik.uni-tuebingen.de (Michael Sperber [Mr. Preprocessor])
Subject: Red 0.10: gnus-group-make-group broken - FIX
Date: 11 Aug 1996 14:58:02 +0200 [thread overview]
Message-ID: <y9lk9v65b8l.fsf@modas.informatik.uni-tuebingen.de> (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)
reply other threads:[~1996-08-11 12:58 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=y9lk9v65b8l.fsf@modas.informatik.uni-tuebingen.de \
--to=sperber@informatik.uni-tuebingen.de \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).