;ELC   
;;; compiled by amu@tux.mit.edu on Sun Nov 15 14:43:20 1998
;;; from file /afs/sipb.mit.edu/contrib/emacs/packages/gnus-5.6.44/lisp/lpath.el
;;; emacs version 19.34.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`lpath.el' was compiled for Emacs 19.29 or later"))


(byte-code "À	BÀ‡" [byte-compile-default-warnings current-load-list] 2)
(defalias 'maybe-fbind #[(args) "… Á@!„ @ÂMˆA‰„ Ã‡" [args fboundp ignore nil] 3])
(defalias 'maybe-bind #[(args) "ÀÁ\n\"‡" [mapcar #[(var) "À	!?…\n 	ÂL‡" [boundp var nil] 2] args] 3])
(byte-code "ÀÁ\n\"ƒ  ÃÄ!„ ÅÄBÇÈ!ˆÉÊ!ˆ‚( ÉË!ˆÇÌ!ˆÍBÏÐ!‡" [string-match "XEmacs" emacs-version boundp track-mouse nil current-load-list maybe-fbind (posn-point event-start x-popup-menu facemenu-get-face window-at coordinates-in-window-p compute-motion x-defined-colors easy-menu-create-keymaps read-event internal-find-face internal-next-face-id make-face-internal set-frame-face-alist frame-face-alist facemenu-add-new-face make-face-x-resource-internal set-font-size set-font-family posn-window run-with-idle-timer mouse-minibuffer-check window-edges event-click-count track-mouse read-event mouse-movement-p event-end mouse-scroll-subr overlay-lists delete-overlay set-face-stipple mail-abbrevs-setup char-int make-char-table set-char-table-range font-create-object x-color-values widget-make-intangible error-message-string w3-form-encode-xwfu gnus-mule-get-coding-system decode-coding-string mail-aliases-setup) maybe-bind (global-face-data mark-active transient-mark-mode mouse-selection-click-count mouse-selection-click-count-buffer buffer-display-table font-lock-defaults user-full-name user-login-name gnus-newsgroup-name gnus-article-x-face-too-ugly mail-mode-hook enable-multibyte-characters adaptive-fill-first-line-regexp adaptive-fill-regexp) (mail-mode-hook enable-multibyte-characters browse-url-browser-function adaptive-fill-first-line-regexp adaptive-fill-regexp) (color-instance-rgb-components make-color-instance color-instance-name specifier-instance device-type device-class get-popup-menu-response event-object x-defined-colors read-color add-submenu set-font-family font-create-object set-font-size frame-device find-face set-extent-property make-extent characterp display-error set-face-doc-string frame-property face-doc-string button-press-event-p next-command-event widget-make-intangible glyphp make-glyph set-glyph-image set-glyph-property event-glyph glyph-property event-point device-on-window-system-p make-gui-button Info-goto-node pp-to-string color-name gnus-mule-get-coding-system decode-coding-string mail-aliases-setup) "." load-path require custom] 3)
(defalias 'md5 #[(a &optional b c) "À‡" [nil] 1])
(provide (quote lpath))