From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/20236 Path: main.gmane.org!not-for-mail From: Colin Rafferty Newsgroups: gmane.emacs.gnus.general Subject: [patch] mode checking against picons Date: 12 Jan 1999 10:36:42 -0500 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035158564 16709 80.91.224.250 (21 Oct 2002 00:02:44 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 00:02:44 +0000 (UTC) Return-Path: Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id KAA29572 for ; Tue, 12 Jan 1999 10:37:50 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by karazm.math.uh.edu (8.9.1/8.9.1) with ESMTP id JAB20485; Tue, 12 Jan 1999 09:37:23 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Tue, 12 Jan 1999 09:37:29 -0600 (CST) Original-Received: from sclp3.sclp.com (root@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id JAA13880 for ; Tue, 12 Jan 1999 09:37:17 -0600 (CST) Original-Received: from hqinbh2.ms.com (hqinbh2.ms.com [205.228.12.72]) by sclp3.sclp.com (8.8.5/8.8.5) with ESMTP id KAA29554 for ; Tue, 12 Jan 1999 10:37:11 -0500 (EST) Original-Received: (from uucp@localhost) by hqinbh2.ms.com (8.8.6/fw v1.30) id KAA29709 for ; Tue, 12 Jan 1999 10:36:57 -0500 (EST) Original-Received: from unknown(144.14.8.140) by hqinbh2 via smap (4.1) id xma029665; Tue, 12 Jan 99 10:36:43 -0500 Original-Received: from sag3.morgan.com (sag3.morgan.com [144.14.8.198]) by sas1.morgan.com (8.8.5/hub v1.9) with ESMTP id KAA09830 for ; Tue, 12 Jan 1999 10:36:43 -0500 (EST) Original-Received: (from craffert@localhost) by sag3.morgan.com (8.8.5/client v1.15) id PAA03019; Tue, 12 Jan 1999 15:36:42 GMT Original-To: GNUS Mailing List X-Face: D>:hrrB{l6#\wU;)0R:OHSTA@ayd.Oq?s@Rrc;[+z0m+<-U"$G-J6L)F2QY`qK~uPu!s1(6{\#uy!Ag/D)?'L[}xErXvxoPn8T_hKi{M]/(`BF{e}X7;hby`p\.E$rJ}Aff#BT,rdDIw\y X-Y-Zippy: Are you still SEXUALLY ACTIVE? Did you BRING th' REINFORCEMENTS? Original-Lines: 47 User-Agent: Gnus/5.070069 (Pterodactyl Gnus v0.69) XEmacs/21.0(beta61) (Poitou61) Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:20236 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:20236 This is a MIME multipart message. If you are reading this, you shouldn't. --=-=-= Similar to yesterday's patch, I have noticed that in a check for gnus-article-mode, we should be checking for gnus-picons-mode. On the other hand, I'm not sure why there is a gnus-picons-mode. Does it actually give us anything? Maybe it should be a minor mode, and then the major-mode can still be gnus-article-mode, and gnus-art.el doesn't need to know about picons, and we may even be able to put picons in non-gnus-article-mode buffers. Anyway, here is my patch. The line numbers may be off slightly because of my previous patches. --=-=-= Content-Disposition: attachment Content-Description: patch for gnus-article-check-buffer 1999-01-12 Colin Rafferty * gnus-art.el (gnus-article-check-buffer): Also check for picons-mode. --- lisp/gnus-art.el~ Sun Jan 3 08:36:04 1999 +++ lisp/gnus-art.el Tue Jan 12 10:26:49 1999 @@ -2994,7 +2997,7 @@ (defun gnus-article-check-buffer () "Beep if not in an article buffer." - (unless (equal major-mode 'gnus-article-mode) + (unless (memq major-mode '(gnus-article-mode gnus-picons-mode)) (error "Command invoked outside of a Gnus article buffer"))) (defun gnus-article-read-summary-keys (&optional arg key not-restore-window) --=-=-= ;; Colin --=-=-=--