X-Git-Url: http://cgit.sxemacs.org/?p=gnus;a=blobdiff_plain;f=lisp%2Fgnus-uu.el;h=1ca6d0e10ed243223873cba39b0fbeab2c1883e4;hp=717b6162a1b4129622429049d57895216668ee1a;hb=992509a3574f9add376cc480db9bb5656285bd5b;hpb=c54845f946c28e8361dc77fb09a873d72b69f967

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index 717b6162a..1ca6d0e10 100644
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -1615,16 +1615,6 @@ Gnus might fail to display all of it.")
 		   gnus-shell-command-separator  " sh")))))
     state))
 
-;; Returns the name of what the shar file is going to unpack.
-(defun gnus-uu-find-name-in-shar ()
-  (let ((oldpoint (point))
-	res)
-    (goto-char (point-min))
-    (when (re-search-forward gnus-uu-shar-name-marker nil t)
-      (setq res (buffer-substring (match-beginning 1) (match-end 1))))
-    (goto-char oldpoint)
-    res))
-
 ;; `gnus-uu-choose-action' chooses what action to perform given the name
 ;; and `gnus-uu-file-action-list'.  Returns either nil if no action is
 ;; found, or the name of the command to run if such a rule is found.