cgit.sxemacs.org Git - gnus/blob - lisp/gnus-uu.el

   1 ;;; gnus-uu.el --- extract (uu)encoded files in Gnus
   2
   3 ;; Copyright (C) 1985-1987, 1993-1998, 2000-2015 Free Software
   4 ;; Foundation, Inc.
   5
   6 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
   7 ;; Created: 2 Oct 1993
   8 ;; Keyword: news
   9
  10 ;; This file is part of GNU Emacs.
  11
  12 ;; GNU Emacs is free software: you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation, either version 3 of the License, or
  15 ;; (at your option) any later version.
  16
  17 ;; GNU Emacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  24
  25 ;;; Commentary:
  26
  27 ;;; Code:
  28
  29 (eval-when-compile (require 'cl))
  30
  31 (require 'gnus)
  32 (require 'gnus-art)
  33 (require 'message)
  34 (require 'gnus-msg)
  35 (require 'mm-decode)
  36 (require 'yenc)
  37
  38 (defgroup gnus-extract nil
  39   "Extracting encoded files."
  40   :prefix "gnus-uu-"
  41   :group 'gnus)
  42
  43 (defgroup gnus-extract-view nil
  44   "Viewing extracted files."
  45   :group 'gnus-extract)
  46
  47 (defgroup gnus-extract-archive nil
  48   "Extracting encoded archives."
  49   :group 'gnus-extract)
  50
  51 (defgroup gnus-extract-post nil
  52   "Extracting encoded archives."
  53   :prefix "gnus-uu-post"
  54   :group 'gnus-extract)
  55
  56 ;; Default viewing action rules
  57
  58 (defcustom gnus-uu-default-view-rules
  59   '(("\\.te?xt$\\|\\.doc$\\|read.*me\\|\\.c?$\\|\\.h$\\|\\.bat$\\|\\.asm$\\|makefile" "cat %s | sed 's/\r$//'")
  60     ("\\.pas$" "cat %s | sed 's/\r$//'")
  61     ("\\.[1-9]$" "groff -mandoc -Tascii %s | sed s/\b.//g")
  62     ("\\.\\(jpe?g\\|gif\\|tiff?\\|p[pgb]m\\|xwd\\|xbm\\|pcx\\)$" "display")
  63     ("\\.tga$" "tgatoppm %s | ee -")
  64     ("\\.\\(wav\\|aiff\\|hcom\\|u[blw]\\|s[bfw]\\|voc\\|smp\\)$"
  65      "sox -v .5 %s -t .au -u - > /dev/audio")
  66     ("\\.au$" "cat %s > /dev/audio")
  67     ("\\.midi?$" "playmidi -f")
  68     ("\\.mod$" "str32")
  69     ("\\.ps$" "ghostview")
  70     ("\\.dvi$" "xdvi")
  71     ("\\.html$" "xmosaic")
  72     ("\\.mpe?g$" "mpeg_play")
  73     ("\\.\\(flc\\|fli\\|rle\\|iff\\|pfx\\|avi\\|sme\\|rpza\\|dl\\|qt\\|rsrc\\|mov\\)$" "xanim")
  74     ("\\.\\(tar\\|arj\\|zip\\|zoo\\|arc\\|gz\\|Z\\|lzh\\|ar\\|lha\\)$"
  75      "gnus-uu-archive"))
  76   "*Default actions to be taken when the user asks to view a file.
  77 To change the behavior, you can either edit this variable or set
  78 `gnus-uu-user-view-rules' to something useful.
  79
  80 For example:
  81
  82 To make gnus-uu use 'xli' to display JPEG and GIF files, put the
  83 following in your .emacs file:
  84
  85   (setq gnus-uu-user-view-rules '((\"jpg$\\\\|gif$\" \"xli\")))
  86
  87 Both these variables are lists of lists with two string elements.  The
  88 first string is a regular expression.  If the file name matches this
  89 regular expression, the command in the second string is executed with
  90 the file as an argument.
  91
  92 If the command string contains \"%s\", the file name will be inserted
  93 at that point in the command string.  If there's no \"%s\" in the
  94 command string, the file name will be appended to the command string
  95 before executing.
  96
  97 There are several user variables to tailor the behavior of gnus-uu to
  98 your needs.  First we have `gnus-uu-user-view-rules', which is the
  99 variable gnus-uu first consults when trying to decide how to view a
 100 file.  If this variable contains no matches, gnus-uu examines the
 101 default rule variable provided in this package.  If gnus-uu finds no
 102 match here, it uses `gnus-uu-user-view-rules-end' to try to make a
 103 match."
 104   :group 'gnus-extract-view
 105   :type '(repeat (group regexp (string :tag "Command"))))
 106
 107 (defcustom gnus-uu-user-view-rules nil
 108   "What actions are to be taken to view a file.
 109 See the documentation on the `gnus-uu-default-view-rules' variable for
 110 details."
 111   :group 'gnus-extract-view
 112   :type '(repeat (group regexp (string :tag "Command"))))
 113
 114 (defcustom gnus-uu-user-view-rules-end
 115   '(("" "file"))
 116   "*What actions are to be taken if no rule matched the file name.
 117 See the documentation on the `gnus-uu-default-view-rules' variable for
 118 details."
 119   :group 'gnus-extract-view
 120   :type '(repeat (group regexp (string :tag "Command"))))
 121
 122 ;; Default unpacking commands
 123