vm (8.2.0b-1) unstable; urgency=low

  * New upstream release. This has been in Beta for two years now, and
    seems to work fine.

# imported from the archive

1 files changed, 61 insertions, 0 deletions

diff --git a/lisp/vm-license.el b/lisp/vm-license.el
new file mode 100755
index 0000000..8d77d69
--- /dev/null
+++ b/lisp/vm-license.el
@@ -0,0 +1,61 @@
+;;; vm-license.el --- Code to show VM's warranty and copying restrictions
+;;
+;; This file is part of VM
+;;
+;; Copyright (C) 1989, 1994 Kyle E. Jones
+;; Copyright (C) 2003-2006 Robert Widhopf-Fenk
+;;
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 2 of the License, or
+;; (at your option) any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License along
+;; with this program; if not, write to the Free Software Foundation, Inc.,
+;; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+
+;;; Code:
+
+(provide 'vm-license)
+
+(eval-when-compile
+  (require 'vm-window))
+
+(declare-function Info-goto-node "ext:info" (nodename &optional fork))
+
+;;;###autoload
+(defun vm-show-copying-restrictions (&optional warranty)
+  "Show VM's license, i.e. the GPL."
+  (interactive)
+  (require 'info)
+  (let ((pop-up-windows (eq vm-mutable-window-configuration t))
+	(pop-up-frames (and vm-mutable-frame-configuration vm-frame-per-help)))
+    (or 
+     (condition-case ()
+	 (progn (Info-goto-node "(vm)License") t)
+       (error nil))
+     (condition-case ()
+	 (progn (Info-goto-node "(vm.info)License") t)
+       (error nil))
+     (error "VM Info documentation appears not to be installed"))
+    (vm-display (current-buffer) t nil nil)
+    (vm-display nil nil '(vm-show-copying-restrictions vm-show-no-warranty)
+		(list this-command))
+    (if warranty
+	(let ((case-fold-search nil))
+	  (search-forward "NO WARRANTY\n" nil t)
+	  (forward-line -1)
+	  (set-window-start (selected-window) (point))))))
+
+;;;###autoload
+(defun vm-show-no-warranty ()
+  "Display \"NO WARRANTY\" section of the GNU General Public License."
+  (interactive)
+  (vm-show-copying-restrictions t))
+
+;;; vm-license.el ends here