From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/34691 Path: main.gmane.org!not-for-mail From: Alex Schroeder Newsgroups: gmane.emacs.gnus.general Subject: gnus-score-customize should accept universal argument Date: 09 Feb 2001 20:42:57 +0100 Sender: owner-ding@hpc.uh.edu Message-ID: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035170569 31654 80.91.224.250 (21 Oct 2002 03:22:49 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 03:22:49 +0000 (UTC) Return-Path: Original-Received: from karazm.math.uh.edu (karazm.math.uh.edu [129.7.128.1]) by mailhost.sclp.com (Postfix) with ESMTP id C0B03D049D for ; Fri, 9 Feb 2001 14:46:18 -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.3/8.9.3) with ESMTP id NAC18753; Fri, 9 Feb 2001 13:44:54 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 09 Feb 2001 13:44:08 -0600 (CST) Original-Received: from mailhost.sclp.com (postfix@66-209.196.61.interliant.com [209.196.61.66] (may be forged)) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id NAA00067 for ; Fri, 9 Feb 2001 13:43:58 -0600 (CST) Original-Received: from flu-smtp-01.datacomm.ch (smtp.datacomm.ch [212.40.5.52]) by mailhost.sclp.com (Postfix) with ESMTP id 22D74D049D for ; Fri, 9 Feb 2001 14:44:22 -0500 (EST) Original-Received: from snail.nowhere.ch (line273.datacomm.ch [212.254.1.93]) by flu-smtp-01.datacomm.ch (8.11.2/8.11.2) with ESMTP id f19JiFJ28480 for ; Fri, 9 Feb 2001 20:44:19 +0100 Original-Received: (from alex@localhost) by snail.nowhere.ch (8.10.2/8.10.2/SuSE Linux 8.10.0-0.3) id f19Jh7T00781; Fri, 9 Feb 2001 20:43:07 +0100 X-Authentication-Warning: snail.nowhere.ch: alex set sender to alex@gnu.org using -f Original-To: ding@gnus.org User-Agent: Gnus/5.090001 (Oort Gnus v0.01) Emacs/20.7 Precedence: list X-Majordomo: 1.94.jlt7 Original-Lines: 43 Xref: main.gmane.org gmane.emacs.gnus.general:34691 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:34691 I just decided that I want to change my all.SCORE file. There seems no way to do this using V C. How about making gnus-score-customize detect a universal argument and then prompt the user for a file (with completion?). Here's my feeble attempt... Alex. cd /home/alex/tmp/ diff -c /home/alex/tmp/gnus-cus.el\~ /home/alex/tmp/gnus-cus.el *** /home/alex/tmp/gnus-cus.el~ Fri Feb 9 20:10:50 2001 --- /home/alex/tmp/gnus-cus.el Fri Feb 9 20:11:23 2001 *************** *** 683,689 **** (defun gnus-score-customize (file) "Customize score file FILE." ! (interactive (list gnus-current-score-file)) (let ((scores (gnus-score-load file)) (types (mapcar (lambda (entry) `(group :format "%v%h\n" --- 683,700 ---- (defun gnus-score-customize (file) "Customize score file FILE." ! (interactive "P") ! ;; (interactive (list gnus-current-score-file)) ! (if (equal file '(4)) ! (setq file ! (expand-file-name ! (read-file-name (concat "Score File (" ! (file-name-nondirectory gnus-current-score-file) ! ") ") ! (file-name-directory gnus-current-score-file) ! gnus-current-score-file))) ! (when (null file) ! (setq file gnus-current-score-file))) (let ((scores (gnus-score-load file)) (types (mapcar (lambda (entry) `(group :format "%v%h\n" Diff finished at Fri Feb 9 20:12:01