;; 15-supercite-sy.el --- Mail citing Settings -*- Emacs-Lisp -*-
-;; Copyright (C) 2007 - 2012 Steve Youngs
+;; Copyright (C) 2007 - 2013 Steve Youngs
;; Author: Steve Youngs <steve@sxemacs.org>
;; Maintainer: Steve Youngs <steve@sxemacs.org>
;; Created: <2007-12-02>
-;; Time-stamp: <Sunday Jun 10, 2012 11:00:07 steve>
+;; Time-stamp: <Saturday Aug 17, 2013 11:29:15 steve>
;; Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
;; HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/15-supercite-sy.html>
;; Git Repo: git clone http://git.sxemacs.org/syinit
(require 'supercite)
(require 'time-date)
+;; There is a screw-up in the Gnus autoloads that prevents this from
+;; being autoloaded
+(defun time-to-seconds (time)
+ "Convert time value TIME to a floating point number."
+ (with-decoded-time-value ((high low micro pico type time))
+ (+ (* 1.0 high 65536)
+ low
+ (/ (+ (* micro 1e6) pico) 1e12))))
+
(defun sy-september-citation-line ()
(let ((sc-mumble "")
(whofrom (sc-whofrom)))
sc-nested-citation-p t
sc-citation-leader " "
sc-citation-separator " "
- sc-reference-tag-string "* "
+ sc-reference-tag-string ""
sc-citation-delimiter "> "
sc-extract-address-components 'gnus-extract-address-components)