From: Steinar Bang <sb@dod.no>
To: ding@gnus.org
Subject: Re: supercite no longer cool
Date: Mon, 27 Apr 2009 23:42:40 +0200 [thread overview]
Message-ID: <ud4axojsf.fsf@dod.no> (raw)
In-Reply-To: <8763gr3qx4.fsf@jidanni.org>
>>>>> 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 ()
"<from>:"
(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 <from>:"
(let ((sc-mumble "")
(whofrom (sc-whofrom)))
(if whofrom
(insert sc-reference-tag-string
"Thus spoke " whofrom ":\n"))))
(defun sc-header-han-skreiv ()
"Han <from> skreiv:"
(let ((sc-mumble "")
(whofrom (sc-whofrom)))
(if whofrom
(insert sc-reference-tag-string
"Han " whofrom " skreiv:\n"))))
(defun sc-header-ho-skreiv ()
"Ho <from> skreiv:"
(let ((sc-mumble "")
(whofrom (sc-whofrom)))
(if whofrom
(insert sc-reference-tag-string
"Ho " whofrom " skreiv:\n"))))
next prev parent reply other threads:[~2009-04-27 21:42 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-04-23 1:43 jidanni
2009-04-24 6:09 ` Steinar Bang
2009-04-27 0:01 ` jidanni
2009-04-27 21:42 ` Steinar Bang [this message]
2009-04-28 6:51 ` Reiner Steib
2009-04-29 1:14 ` Bug#526071: " jidanni
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=ud4axojsf.fsf@dod.no \
--to=sb@dod.no \
--cc=ding@gnus.org \
/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).