From: steve@miranova.com (Steven L. Baur)
Subject: Re: Latest XEmacs lossage in sgnus 0.15
Date: 25 Nov 1995 13:55:10 -0800 [thread overview]
Message-ID: <m2ivk8z7ep.fsf@diana.miranova.com> (raw)
In-Reply-To: William Perry's message of 25 Nov 1995 11:13:04 -0800
These patches are to be applied after William's.
More to come. Gnus on XEmacs is still broken, but this will at least
allow you to get in and look at your e-mail.
--- gnus.el.orig Sat Nov 25 13:30:08 1995
+++ gnus.el Sat Nov 25 13:30:29 1995
@@ -2219,7 +2219,7 @@
(defun gnus-mouse-face-function (form type)
`(put-text-property
(point) (progn ,@form (point))
- ,gnus-mouse-face-prop
+ gnus-mouse-face-prop
,(if (equal type 0)
'gnus-mouse-face
`(quote ,(symbol-value (intern (format "gnus-mouse-face-%d" type)))))))
--- gnus-xmas.el~ Sat Nov 25 12:50:02 1995
+++ gnus-xmas.el Sat Nov 25 13:29:54 1995
@@ -136,12 +136,12 @@
(progn
(setq info (nth 2 entry))
(gnus-group-insert-group-line
- nil group (gnus-info-level info) (gnus-info-marks info)
+ group (gnus-info-level info) (gnus-info-marks info)
(car entry) (gnus-info-method info)))
(setq active (gnus-gethash group gnus-active-hashtb))
(gnus-group-insert-group-line
- nil group (if (member group gnus-zombie-list) gnus-level-zombie
+ group (if (member group gnus-zombie-list) gnus-level-zombie
gnus-level-killed)
nil (if active (- (1+ (cdr active)) (car active)) 0) nil))
(save-excursion
@@ -310,7 +310,6 @@
(defun gnus-xmas-redefine ()
- (fset 'gnus-mouse-face-function 'identity)
(fset 'gnus-summary-make-display-table (lambda () nil))
(fset 'gnus-visual-turn-off-edit-menu 'identity)
(fset 'gnus-highlight-selected-summary
@@ -486,6 +485,5 @@
(gnus-xmas-setup-toolbar gnus-summary-toolbar)
(set-specifier (symbol-value gnus-use-toolbar)
(cons (current-buffer) gnus-summary-toolbar))))
-
;;; gnus-xmas.el ends here
--- ChangeLog~ Sat Nov 25 03:13:41 1995
+++ ChangeLog Sat Nov 25 13:47:31 1995
@@ -1,3 +1,13 @@
+Sat Nov 25 13:41:08 1995 Steven L. Baur <steve@diana.miranova.com (Steven L. Baur)>
+
+ * gnus.el (gnus-mouse-face-function): One comma too many on
+ gnus-mouse-face-prop
+
+ * gnus-xmas.el (gnus-xmas-redefine): Don't undefine
+ gnus-mouse-face-function.
+ (gnus-xmas-group-insert-group-line-info): Remove now bogus first
+ parameter.
+
Sat Nov 25 10:55:49 1995 Lars Magne Ingebrigtsen <larsi@narfi.ifi.uio.no>
* gnus-topic.el (gnus-topic-mode): Allow not redisplaying.
--
steve@miranova.com baur
next prev parent reply other threads:[~1995-11-25 21:55 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
1995-11-25 19:13 William Perry
1995-11-25 21:55 ` Steven L. Baur [this message]
1995-11-25 22:30 ` Steven L. Baur
1995-11-26 0:30 ` William Perry
1995-11-26 1:45 ` Jens Lautenbacher
1995-11-26 4:12 ` Steven L. Baur
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=m2ivk8z7ep.fsf@diana.miranova.com \
--to=steve@miranova.com \
/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).