From 8fbea12c08909aa7c4fdfc454bee382d5d3c7f44 Mon Sep 17 00:00:00 2001
From: "Eric S. Raymond" <esr@snark.thyrsus.com>
Date: Thu, 25 Mar 1993 01:49:59 +0000
Subject: [PATCH] (mh-unshar) Added.

---
 lisp/mh-e.el | 47 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 47 insertions(+)

diff --git a/lisp/mh-e.el b/lisp/mh-e.el
index b094934bc4a..63cc9efe2d8 100644
--- a/lisp/mh-e.el
+++ b/lisp/mh-e.el
@@ -2740,6 +2740,52 @@ Assumes that any filename that starts with '+' is a folder name."
   (if (re-search-forward "^$\\|^-+$" nil nil)
       (forward-line arg)))
 
+
+(defun mh-unshar (dir)
+  "Unshar the current message in the directory given by DIR."
+  (interactive "DUnshar in directory: ")
+  (let ((default-directory default-directory)
+        (errbuf " *Unshar Output*")
+	(curbuf (current-buffer))
+	(show-buffer mh-show-buffer)
+	start
+	)
+    (setq dir (expand-file-name dir))
+    (if (not (eq system-type 'vax-vms))
+	(setq dir (file-name-as-directory dir)))
+    (mh-show nil)		;;; force showing of current message
+    (save-excursion
+      (set-buffer show-buffer)
+      (goto-char (point-min))
+      (message "Looking for start of shar package ...")
+      (if (or (re-search-forward "^#![ \t]*/bin/sh" nil t)
+	      (and (re-search-forward "^[^a-z0-9\"]*cut here" nil t)
+		   (forward-line 1))
+	      (re-search-forward "^#" nil t)
+	      (re-search-forward "^: " nil t)
+	      )
+	  (progn
+	    (beginning-of-line)
+	    (setq start (point))
+	    (set-buffer curbuf)
+	    (pop-to-buffer errbuf)
+	    (kill-region (point-max) (point-min))
+	    (insert (format "Unsharing in directory \"%s\" ...\n\n" dir))
+	    (message "Please wait ...")
+	    (sit-for 0)
+	    (set-buffer show-buffer)
+	    (setq default-directory dir)
+	    (call-process-region start (point-max)
+				 "/bin/sh" nil errbuf t)
+	    (pop-to-buffer curbuf)
+	    (message "Unshar done")
+	    )
+	(error "Can't find start of shar file")
+	)
+      )
+    )
+  )
+
 
 
 ;;; Build the folder-mode keymap:
@@ -2762,6 +2808,7 @@ Assumes that any filename that starts with '+' is a folder name."
 (define-key mh-folder-mode-map "\ef" 'mh-visit-folder)
 (define-key mh-folder-mode-map "\ek" 'mh-kill-folder)
 (define-key mh-folder-mode-map "\el" 'mh-list-folders)
+(define-key mh-folder-mode-map "\en" 'mh-unshar)
 (define-key mh-folder-mode-map "\eo" 'mh-write-msg-to-file)
 (define-key mh-folder-mode-map "\ep" 'mh-pack-folder)
 (define-key mh-folder-mode-map "\es" 'mh-search-folder)