Synch to No Gnus 200401050620.

[elisp/gnus.git-] / texi / texi2latex.el

diff --git a/texi/texi2latex.el b/texi/texi2latex.el
index 237e8ad..4f77713 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)
 
@@ -38,7 +38,10 @@
   (latexi-translate-file "gnus-faq")
   (latexi-translate-file "message" t)
   (latexi-translate-file "emacs-mime" t)
-  (latexi-translate-file "sieve" t))
+  (latexi-translate-file "sieve" 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."
@@ -143,6 +146,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")
@@ -275,7 +280,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"))