From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/51764 Path: main.gmane.org!not-for-mail From: Reiner Steib <4.uce.03.r.s@nurfuerspam.de> Newsgroups: gmane.emacs.gnus.general Subject: gnus-xmas-format in ~/.newsrc.eld Date: Wed, 23 Apr 2003 15:17:42 +0200 Organization: Dept. of Theoretical Physics, University of Ulm Sender: ding-owner@lists.math.uh.edu Message-ID: Reply-To: reiner.steib@gmx.de NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1051103895 27649 80.91.224.249 (23 Apr 2003 13:18:15 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 23 Apr 2003 13:18:15 +0000 (UTC) Original-X-From: ding-owner+M307@lists.math.uh.edu Wed Apr 23 15:18:07 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 198K8U-0007Am-00 for ; Wed, 23 Apr 2003 15:18:06 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 198K9B-0003XZ-00; Wed, 23 Apr 2003 08:18:49 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 198K93-0003XT-00 for ding@lists.math.uh.edu; Wed, 23 Apr 2003 08:18:41 -0500 Original-Received: (qmail 48990 invoked by alias); 23 Apr 2003 13:18:40 -0000 Original-Received: (qmail 48985 invoked from network); 23 Apr 2003 13:18:40 -0000 Original-Received: from main.gmane.org (80.91.224.249) by sclp3.sclp.com with SMTP; 23 Apr 2003 13:18:40 -0000 Original-Received: from list by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 198K83-00076q-00 for ; Wed, 23 Apr 2003 15:17:39 +0200 Mail-Followup-To: ding@gnus.org X-Injected-Via-Gmane: http://gmane.org/ Original-To: ding@gnus.org Original-Received: from news by main.gmane.org with local (Exim 3.35 #1 (Debian)) id 198K7J-00073E-00 for ; Wed, 23 Apr 2003 15:16:53 +0200 Original-Lines: 55 Original-X-Complaints-To: usenet@main.gmane.org X-Face: .*T0'iU(sujq_j9\J>-d4fg;N/1++U#U$_5ii6k.=|"-n'?5O:Hyz&wi'-!I~,}7~GgT=0S /&-R5sbkNy5+Xo1y{Tw2KKxi@Xh"g@]Qc|.U<*]WDd)qvGowFDvfU1F]{EDho:7P0@|oOD=Bc{K4?> WP68K[Mx:}=`ZT'6g4'f+g?;`vri2!)xGy}3:=l'(/Cea0l4lo^H5#@/Z3ev Mail-Copies-To: nobody User-Agent: Gnus/5.090019 (Oort Gnus v0.19) Emacs/21.3 (gnu/linux) Cancel-Lock: sha1:BOIeKxuu+Q2C+lrcl8OyrAMRw5c= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:51764 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:51764 Hi, when using Oort with XEmacs, the following gets written to ~/.newsrc.eld: ,---- | (setq | gnus-format-specs | '((article-mode "Gnus: %g [%w] %S%m" | (concat (gnus-xmas-format "Gnus: %s [%s] %s%s" ...))))) `---- When a user wants to switch back to Gnus 5.8.8 (e.g. to see if some bug has been introduced in Oort), displaying articles fails, because `gnus-xmas-format' isn't bound. Couldn't we (defalias 'gnus-xmas-format 'format) in this case? --8<---------------cut here---------------start------------->8--- --- lisp/gnus-start.el 5 Apr 2003 05:40:29 -0000 6.72 +++ lisp/gnus-start.el 23 Apr 2003 13:19:12 -0000 @@ -460,6 +460,12 @@ ;; Byte-compiler warning. (defvar gnus-group-line-format) +(defvar gnus-newsrc-gnus-compatibility + (concat "(unless (fboundp 'gnus-xmas-format)\n" + " (defalias 'gnus-xmas-format 'format))\n") + "String added to `~/.newsrc.eld' for compatibility. +Must be a valid lisp expression.") + ;; Suggested by Brian Edmonds . (defvar gnus-init-inhibit nil) (defun gnus-read-init-file (&optional inhibit-next) @@ -2641,6 +2647,8 @@ (princ "(setq gnus-newsrc-file-version ") (princ (gnus-prin1-to-string gnus-version)) (princ ")\n") + (when (stringp gnus-newsrc-gnus-compatibility) + (insert gnus-newsrc-gnus-compatibility)) (let* ((print-quoted t) (print-readably t) (print-escape-multibyte nil) --8<---------------cut here---------------end--------------->8--- Is there a better name instead of `gnus-newsrc-gnus-compatibility'? I'm using `defvar' (and not `defcustom') on purpose, because I don't think it should be customizable. Bye, Reiner. -- ,,, (o o) ---ooO-(_)-Ooo--- PGP key available via WWW http://rsteib.home.pages.de/