From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/68496 Path: news.gmane.org!not-for-mail From: Steinar Bang Newsgroups: gmane.emacs.gnus.general Subject: Re: supercite no longer cool Date: Mon, 27 Apr 2009 23:42:40 +0200 Organization: Probably a good idea Message-ID: References: <8763gr3qx4.fsf@jidanni.org> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1240868663 13943 80.91.229.12 (27 Apr 2009 21:44:23 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 27 Apr 2009 21:44:23 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M16930@lists.math.uh.edu Mon Apr 27 23:44:14 2009 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1LyYcX-0005W2-NM for ding-account@gmane.org; Mon, 27 Apr 2009 23:44:14 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1LyYbQ-0001uT-Ga; Mon, 27 Apr 2009 16:43:04 -0500 Original-Received: from mx1.math.uh.edu ([129.7.128.32]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1LyYbO-0001u2-G1 for ding@lists.math.uh.edu; Mon, 27 Apr 2009 16:43:02 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx1.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1LyYbI-0005NX-9A for ding@lists.math.uh.edu; Mon, 27 Apr 2009 16:43:02 -0500 Original-Received: from main.gmane.org ([80.91.229.2] helo=ciao.gmane.org) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1LyYbi-0003nK-00 for ; Mon, 27 Apr 2009 23:43:22 +0200 Original-Received: from list by ciao.gmane.org with local (Exim 4.43) id 1LyYbD-0008ME-8K for ding@gnus.org; Mon, 27 Apr 2009 21:42:51 +0000 Original-Received: from cm-84.208.204.180.getinternet.no ([84.208.204.180]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 27 Apr 2009 21:42:51 +0000 Original-Received: from sb by cm-84.208.204.180.getinternet.no with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Mon, 27 Apr 2009 21:42:51 +0000 X-Injected-Via-Gmane: http://gmane.org/ Mail-Followup-To: ding@gnus.org Original-Lines: 98 Original-X-Complaints-To: usenet@ger.gmane.org X-Gmane-NNTP-Posting-Host: cm-84.208.204.180.getinternet.no Mail-Copies-To: never User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/22.3 (windows-nt) Cancel-Lock: sha1:yo54g5Xpl1FZIypJTIQhAzDGwAY= X-Spam-Score: -3.6 (---) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:68496 Archived-At: >>>>> jidanni@jidanni.org: > Steinar, how do you call in supercite in your startup files these > days? Nothing in my setup changed. It just isn't getting read on disk > anymore. view-echo-area-messages confirms it. I don't really know what triggers things with the current Gnus and emacs, but here is all I have, that is supercite related. In .gnus.el: (require 'supercite) In .emacs: ;;;================================ ;; Setup for supercite 3.1 (add-hook 'mail-citation-hook 'sc-cite-original) ; This is run in mail-mode-xtras (setq sc-pre-hook '(lambda () (if (or (string= (buffer-name) "*post-news*") (string= (buffer-name) "*news message*")) (progn (setq news-reply-header-hook nil) (setq sc-citation-leader " ") (setq sc-nested-citation-p nil) (setq sc-preferred-header-style 4)) (progn (setq sc-confirm-always-p nil) (setq sc-citation-leader nil) (setq sc-nested-citation-p t) (setq sc-preferred-header-style 0))) (sc-setup-filladapt) (setq sc-auto-fill-region-p nil) (setq sc-citation-delimiter-regexp "[|>]+") (setq sc-electric-references-p t) (setq sc-preferred-attribution-list '("sc-lastchoice" "x-attribution" "initials" "emailname" "firstname" "lastname")) (setq sc-rewrite-header-list '((sc-no-header) (sc-header-on-said) (sc-header-inarticle-writes) (sc-header-thus-spoke) (sc-header-attributed-writes) (sc-header-han-skreiv) (sc-header-ho-skreiv) (sc-header-regarding-adds) (sc-header-verbose) (sc-no-blank-line-or-header) (sc-header-writes) (sc-header-you-wrote) )))) ;; The 'simple' mail-yank header (defun sc-header-writes () ":" (let ((sc-mumble "") (whofrom (sc-whofrom))) (if whofrom (insert sc-reference-tag-string whofrom ":\n")))) ;; The 'simple' mail-yank header (defun sc-header-you-wrote () "You wrote:" (insert sc-reference-tag-string "You wrote:\n")) ;; The 'thus spoke ...' mail-yank header (defun sc-header-thus-spoke () "Thus spoke :" (let ((sc-mumble "") (whofrom (sc-whofrom))) (if whofrom (insert sc-reference-tag-string "Thus spoke " whofrom ":\n")))) (defun sc-header-han-skreiv () "Han skreiv:" (let ((sc-mumble "") (whofrom (sc-whofrom))) (if whofrom (insert sc-reference-tag-string "Han " whofrom " skreiv:\n")))) (defun sc-header-ho-skreiv () "Ho skreiv:" (let ((sc-mumble "") (whofrom (sc-whofrom))) (if whofrom (insert sc-reference-tag-string "Ho " whofrom " skreiv:\n"))))