(spam-generate-fake-headers): rewrite to be simpler,

[gnus] / texi / texi2latex.el

diff --git a/texi/texi2latex.el b/texi/texi2latex.el
index 2d607f0..f3ea021 100644 (file)
--- a/texi/texi2latex.el
+++ b/texi/texi2latex.el
@@ -1,5 +1,5 @@
 ;;; texi2latex.el --- convert a texi file into a LaTeX file.
-;; Copyright (C) 1996 Lars Magne Ingebrigtsen
+;; Copyright (C) 1996, 2004 Lars Magne Ingebrigtsen
 
 (require 'cl)
 
@@ -39,7 +39,8 @@
   (latexi-translate-file "message" t)
   (latexi-translate-file "emacs-mime" t)
   (latexi-translate-file "sieve" t)
-  (latexi-translate-file "pgg" t))
+  (latexi-translate-file "pgg" t)
+  (latexi-translate-file "sasl" t))
 
 (defun latexi-translate-file (file &optional as-a-chapter)
   "Translate file a LaTeX file."
@@ -101,7 +102,7 @@
                                  "summarycontents" "bye"
                                  "top" "iftex" "cartouche" 
                                  "iflatex" "finalout" "vskip"
-                                 "dircategory" "group"))
+                                 "dircategory" "group" "syncodeindex"))
                (latexi-strip-line))
               ((member command '("menu" "tex" "ifinfo" "ignore" 
                                  "ifnottex" "direntry"))
@@ -144,6 +145,8 @@
                (insert "\\\\"))
               ((equal command "sp")
                (replace-match "" t t))
+              ((equal command ":")
+               (replace-match "" t t))
               ((member command '("deffn" "defvar" "defun"))
                (replace-match "" t t))
               ((equal command "node")
@@ -276,7 +279,8 @@
            (latexi-exchange-command (concat "gnus" command) arg))
           ((member command '("sc" "file" "dfn" "emph" "kbd" "key" "uref"
                              "code" "samp" "var" "strong" "i"
-                             "result" "email" "env" "r"))
+                             "result" "email" "env" "r" "command" "asis"
+                             "url"))
            (goto-char (match-beginning 0))
            (delete-char 1)
            (insert "\\gnus"))