Search the FAQ Archives

3 - A - B - C - D - E - F - G - H - I - J - K - L - M
N - O - P - Q - R - S - T - U - V - W - X - Y - Z
faqs.org - Internet FAQ Archives

MH Frequently Asked Questions (FAQ) with Answers
Section - Switching xmh's editor

( Single Page )
[ Usenet FAQs | Web FAQs | Documents | RFC Index | Airports ]


Top Document: MH Frequently Asked Questions (FAQ) with Answers
Previous Document: Acknowledgments
Next Document: babyl2mh.pl
See reader questions & answers on this topic! - Help others by sharing your knowledge
Date: Fri, 1 Mar 1991 13:03:15 -0800

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then unpack
# it by saving it into a file and typing "sh file".  To overwrite existing
# files, type "sh file -c".  You can also feed this as standard input via
# unshar, or by typing "sh <file", e.g..  If this archive is complete, you
# will see the following message at the end:
#		"End of shell archive."
# Contents:  README Xmh.ad xmh-command.el xmhcommand xmhemacs
# Wrapped by aw@jello on Fri Nov 15 17:10:34 1991
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
if test -f 'README' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'README'\"
else
echo shar: Extracting \"'README'\" \(1269 characters\)
sed "s/^X//" >'README' <<'END_OF_FILE'
XThis is a short description of what to do with each of the enclosed files.
X
XXmh.ad
X  Merge this in with your xmh resources.  If you already have
X  user defined buttons, then you may need to renumber the
X  buttons in this resource file.
X
Xxmh-command.el
X  Byte compile this file and put it in your GNU emacs load-path.
X
Xxmhcommand
Xxmhemacs
X  Put these somewhere in your path.
X
X
XOnce you have installed these, restart the R5 xmh with the new
Xresources.  When you press the repl, forw or comp buttons
Xan xemacs window will come up with your draft message.
X
XOnce you have written your mail, save it and exit GNU emacs (C-xC-c).
XYou will be prompted if you want to send the current message.
XIf you enter 'y', the message will be sent and the output will
Xbe displayed in an emacs window (in case you use -verbose or -snoop).
XThen you will be prompted to exit emacs.  Enter 'y' when you are ready.
X
XIf you answered 'n' when prompted to send the message,
Xthen the draft message will be deleted and emacs will exit.
X
XYou can modify the Xmh.ad resources to add more buttons.
XAny MH command which accepts "+folder msg" can be used
X(e.g. a replx shell script which includes the body of the
Xmessage being replied to can be bound to a replx button)
X
X
XAndrew Wason
Xaw at bae.bellcore.com
END_OF_FILE
if test 1269 -ne `wc -c <'README'`; then
    echo shar: \"'README'\" unpacked with wrong size!
fi
# end of 'README'
fi
if test -f 'Xmh.ad' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'Xmh.ad'\"
else
echo shar: Extracting \"'Xmh.ad'\" \(457 characters\)
sed "s/^X//" >'Xmh.ad' <<'END_OF_FILE'
XXmh*CommandButtonCount:			3
X
XXmh*commandBox.button1.label:		repl
XXmh*commandBox.button1.translations:\
X	#override\n\
X	<Btn1Up>:	XmhShellCommand(xmhcommand y repl) unset()
X
XXmh*commandBox.button2.label:		forw
XXmh*commandBox.button2.translations:\
X	#override\n\
X	<Btn1Up>:	XmhShellCommand(xmhcommand y forw) unset()
X
XXmh*commandBox.button3.label:		comp
XXmh*commandBox.button3.translations:\
X	#override\n\
X	<Btn1Up>:	XmhShellCommand(xmhcommand n comp) unset()
END_OF_FILE
if test 457 -ne `wc -c <'Xmh.ad'`; then
    echo shar: \"'Xmh.ad'\" unpacked with wrong size!
fi
# end of 'Xmh.ad'
fi
if test -f 'xmh-command.el' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'xmh-command.el'\"
else
echo shar: Extracting \"'xmh-command.el'\" \(1294 characters\)
sed "s/^X//" >'xmh-command.el' <<'END_OF_FILE'
X;;; These functions are for use with xemacs and xmh.
X;;; The R5 xmh has a new action - XmhShellCommand which executes
X;;; a shell command with the current msg as an arg.
X;;; By executing something like:
X;;;    XmhShellCommand(xmhcommand repl)
X;;; you can use xemacs as your editor with xmh.
X;;;
X;;; The following elisp functions perform the basic whatnowproc functionality
X;;; (quitting and deleting, sending)
X;;;
X;;; Andrew Wason  aw at bae.bellcore.com
X
X
X;;; Override C-xC-c
X(define-key indented-text-mode-map "\C-x\C-c" 'xmh-command-send-or-delete)
X
X
X(setq mhdraft (getenv "mhdraft"))	; save the filename of the draft
X
X
X(find-file mhdraft)			; load the draft letter
X(indented-text-mode)
X(setq draft-buffer (current-buffer))	; save the buffer the draft is in
X
X
X(defun xmh-command-send-or-delete ()
X  "Prompt to send or delete letter, then quit."
X  (interactive)
X  (set-buffer draft-buffer)
X  (if (y-or-n-p "Send message? ")
X      (progn
X	(save-buffer)				; save the draft buffer
X	(message "Sending...")
X	(pop-to-buffer "MH mail delivery"); pop to a buffer for "send" output
X	(erase-buffer)
X	(call-process "send" nil t t mhdraft)	; call MH "send"
X	(if (y-or-n-p "Exit? ")
X	    (kill-emacs)))			; exit emacs
X    (delete-file mhdraft)			; delete the draft letter
X    (kill-emacs)))				; exit emacs
END_OF_FILE
if test 1294 -ne `wc -c <'xmh-command.el'`; then
    echo shar: \"'xmh-command.el'\" unpacked with wrong size!
fi
# end of 'xmh-command.el'
fi
if test -f 'xmhcommand' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'xmhcommand'\"
else
echo shar: Extracting \"'xmhcommand'\" \(669 characters\)
sed "s/^X//" >'xmhcommand' <<'END_OF_FILE'
X#!/bin/sh
X# This shell should be invoked by the xmh XmhShellCommand() action as
X#   XmhShellCommand(xmhcommand y repl)
X#   XmhShellCommand(xmhcommand n comp) etc.
X# If the second arg is y, then the message list will be used.
X
X# We invoke the passed MH command on the identified message
X# (we must strip the message number and folder from the pathname)
X(if [ $1 = "y" ]
Xthen
X	$2 -whatnowproc xmhemacs +`dirname \`echo $3 | \
X		sed "s;\\\`mhpath +\\\`/;;"\`` `basename $3`
X
X# You can use this more readable version instead if you have ksh
X#	$2 -whatnowproc xmhemacs +$(dirname $(echo $3 | \
X#		sed "s;$(mhpath +)/;;")) $(basename $3)
X
Xelse
X	$2 -whatnowproc xmhemacs
Xfi)&
END_OF_FILE
if test 669 -ne `wc -c <'xmhcommand'`; then
    echo shar: \"'xmhcommand'\" unpacked with wrong size!
fi
chmod +x 'xmhcommand'
# end of 'xmhcommand'
fi
if test -f 'xmhemacs' -a "${1}" != "-c" ; then
  echo shar: Will not clobber existing file \"'xmhemacs'\"
else
echo shar: Extracting \"'xmhemacs'\" \(116 characters\)
sed "s/^X//" >'xmhemacs' <<'END_OF_FILE'
X#!/bin/sh
X# Invoke xemacs and load the xmh-command.el stuff.
X# xmhemacs is used by xmhcommand
Xxemacs -l xmh-command
END_OF_FILE
if test 116 -ne `wc -c <'xmhemacs'`; then
    echo shar: \"'xmhemacs'\" unpacked with wrong size!
fi
chmod +x 'xmhemacs'
# end of 'xmhemacs'
fi
echo shar: End of shell archive.
exit 0

User Contributions:

1
Report this comment as inappropriate
Sep 18, 2019 @ 9:09 am
Where to invest $ 3000 once and receive every month from $ 55000: https://hec.su/nLfW?TGtEESPDx
2
Report this comment as inappropriate
Sep 18, 2019 @ 7:19 pm
Earn Free Bitcoin 0.2 BTC Per day: https://hec.su/nIrt?jzNjFuyIjDi
3
Report this comment as inappropriate
Sep 18, 2019 @ 11:23 pm
Invest in cryptocurrency and get passive income of $ 5000 per week: https://hec.su/nJPO?Orq4u
4
Report this comment as inappropriate
Sep 19, 2019 @ 7:07 am
Buy Essay and Get Time for Pleasures of Life: https://vk.cc/9OTGak?id=buyessayonline111zgu
5
Report this comment as inappropriate
Sep 19, 2019 @ 7:07 am
Buy Essay Online At Writing Service from Canada: https://vk.cc/9OTGak?id=buyessayonline112e4y
6
Report this comment as inappropriate
Sep 19, 2019 @ 7:07 am
Buy Essay: 100% Original. Low Price. In 3 Hours. Safe & Legit: https://vk.cc/9OTGak?id=buyessayonline113x86
7
Report this comment as inappropriate
Sep 19, 2019 @ 10:10 am
Buy Essay Online, Essay Writing Service, Write My Essay: https://vk.cc/9OTGak?id=buyessayonline1138za
8
Report this comment as inappropriate
Sep 19, 2019 @ 11:11 am
Buy Essay Online At Writing Service from Australia: https://vk.cc/9OTGak?id=buyessayonline112he2
9
Report this comment as inappropriate
Sep 20, 2019 @ 3:15 pm
Buy Essay Online, Essay Writing Service, Write My Essay: https://vk.cc/9OTGak?id=buyessayonline11312t
10
Report this comment as inappropriate
Sep 20, 2019 @ 6:18 pm
Buy Essays Online in Australia: https://vk.cc/9OTGak?id=buyessayonline113zbs
The Best Dating Apps for 2019: https://huit.re/bestsexygirls360002?u=kopl
Beautiful girls are looking for sex in your city: https://onlineuniversalwork.com/bestsexygirls262569?u=to
13
Report this comment as inappropriate
Sep 26, 2019 @ 9:09 am
Beautiful girls are looking for sex in your city: https://is.gd/sexygirlsinyourcity23298?u=7u
14
Report this comment as inappropriate
Sep 26, 2019 @ 11:11 am
10 Best CA Dating Sites 2019: https://is.gd/sexygirlsinyourcity98201?u=wt
15
Report this comment as inappropriate
Sep 26, 2019 @ 10:22 pm
5 Best Casual Dating Apps: https://onlineuniversalwork.com/bestsexygirls352268?u=460
5 Best Casual Dating Apps: https://frama.link/bestsexygirls149180?u=1546
How to find a woman for casual sex: https://ecuadortenisclub.com/bestsexygirls148355?u=ye
Top 5 AU Casual Dating Sites 2019: https://is.gd/sexygirlsinyourcity38534?u=mde
Meet sexy girls in your city: https://is.gd/sexygirlsinyourcity63345?u=jj
Dating sites for sex - 545 women want to meet for sex in your city: https://bestsexygirlsinyourcity.blogspot.no?r=59
Girls are looking for sex in your city (518 women want to meet for sex in your city): https://siteadultdatingforsex.blogspot.ca?a=10
Sex App For Adult Dating, Sex Now Websites - 575 women want to meet for sex in your city: https://the-best-adult-dating-sites.blogspot.nl?e=91
Sexy girls in your city are looking for dating (762 girls want to meet for sex in your city): https://siteadultdatingforsex.blogspot.ie?p=04
Meet for Sex - Find Sex Tonight (167 beautiful women want sex in your city right now): https://vae.me/lYSI?y=2062
Adult Dating Site, Meet and Fuck - 234 women want to meet for sex in your city: https://bestadultforsex.blogspot.co.uk?u=98
7+ Dating Sex Sites, Adult Dating Hook Up Sites - 267 beautiful girls want sex in your city right now: https://bestadultdatingsite999.blogspot.ae?g=38
Sexy girls in your city are looking for dating (629 women want to meet for sex in your city): https://darknesstr.com/adultdatingsex542120?m=8844
Nur wie man 7027 $ SCHNELL, schnelles Geld verdient, der beschäftigte Wellensittich: https://earn7btcperweek.blogspot.nl?v=82
Bezahlte Studien: Gewinnen Sie 6065 USD oder mehr pro Woche: https://make3btcperweek.blogspot.kr?t=58
Forex + Kryptowährung = $ 6465 pro Woche: https://earn1btcperweek.blogspot.co.uk?v=98
So erhalten Sie 6735 USD pro Woche: https://make-1-btc-per-week.blogspot.com.es?i=97
Just how would you use $51493 to make more money: https://3-btc-per-day.blogspot.mx?y=613
Invest $ 2864 and get $ 84448 every month: https://7-btc-per-day.blogspot.hk?j=664
How to Make $7621 FAST, Quick Loan, The Busy Budgeter: https://earn1btcperweek.blogspot.fi?h=25
Paid Surveys: Earn $8512 Or More Each week: https://7-btc-per-day.blogspot.co.nz?j=285
Paid Surveys: Earn $6549 Or Even more Each week: https://earn7btcperweek.blogspot.be?u=61
How to earn 0,883 BTC per week: https://make-1-btc-per-week.blogspot.fi?m=64
Invest $ 4934 and get $ 12365 every month: https://make1btcperweek.blogspot.ro?c=85
How to Make $8329 FAST, Quick Cash, The Busy Budgeter: https://get3btcperweek.blogspot.com.au?i=82
Invest $ 2882 and get $ 33114 every month: https://earn1btcperweek.blogspot.mx?p=53
Invest $ 4236 and get $ 78427 every month: https://make-2-btc-perday.blogspot.com.es?e=27
How to make $ 8619 per day: https://hideuri.com/qJzrZw?&gszku=Z7mLcZFn1Gk4Zb
Invest $ 75155 in Bitcoin once and get $ 941179 passive income per month: https://hideuri.com/aBDYO3?ZOAru
Just how to Make $5628 FAST, Fast Money, The Busy Budgeter: https://get-2-btc-perday.blogspot.tw?u=93
How to invest in Bitcoin and receive from $ 3411 per day: https://make-3-btc-perday.blogspot.gr?p=12
Exactly how to Make $6761 FAST, Rapid Money, The Busy Budgeter: https://hideuri.com/a51yyo?&kkhcw=M73V7r
Paid Surveys: Gain $9135 Or Even more Weekly: https://vae.me/aqz2?l=7194
Just how would you use $76676 to make more cash: https://hideuri.com/a7gGk5?&jfjjs=9gTFWgEG
What's the easiest means to earn $95329 a month: https://fla.kr/earnonebtc963598?h=7988
50
Report this comment as inappropriate
Oct 17, 2019 @ 7:19 pm
How to invest in Cryptocurrency $ 37886 - get a return of up to 3812%: https://hideuri.com/K0EP8W?Wp24o422
51
Report this comment as inappropriate
Oct 19, 2019 @ 2:14 pm
Invest $ 7275 and get $ 97378 every month: https://soo.gd/1vVIY?&ptshn=4sGaN
How to invest in Bitcoin and receive from $ 8383 per day: https://cutt.us/H7KgvRc?a5kQdKDU5W
How to Make $6226 FAST, Quick Cash, The Busy Budgeter: https://hideuri.com/a7o81M?&ppmne=Yu1yhHoF1
Just how to Make $7457 FAST, Rapid Cash, The Busy Budgeter: https://hideuri.com/Kjn8ZA?r4nEosWMTJLgNE
How to get 0,988 Bitcoin per week: https://soo.gd/inar?5fp7mb
52
Report this comment as inappropriate
Oct 19, 2019 @ 2:14 pm
Invest $ 6538 and get $ 32856 every month: https://v.ht/afMoj?otspvux0z8d
Just how would certainly you utilize $92431 to make more money: https://cutt.us/PXn2tI5gS?X3U0km
What's the simplest means to earn $76177 a month: https://hideuri.com/qJodXr?z022EajPURJW
Forex + Bitcoin = $ 6282 per week: https://soo.gd/3di0p?&tdpud=PQQ23hz
Exactly how to Make $6711 FAST, Rapid Money, The Busy Budgeter: https://v.ht/mlPaUOv?ck5z2dNXkBNk9
Invest $ 56448 in Bitcoin once and get $ 947918 passive income per month: https://soo.gd/D6SV?bsJVKfIhmby
How to Make $5411 FAST, Fast Cash, The Busy Budgeter: https://hideuri.com/KAoRr3?&pgbpk=tUxb1AiQEE9
55
Report this comment as inappropriate
Oct 19, 2019 @ 6:18 pm
Invest $ 6953 and get $ 32997 every month: https://v.ht/zYRz5DP?&tgojk=CzNWu4hx
Forex + Bitcoin = $ 4171 per week: https://cutt.us/DuuNMCrKx?&bddar=51Ep8
Invest $ 2218 and get $ 63872 every month: https://v.ht/Cud6E4m?ywlfI5R43BGfMX
Invest $ 84453 in Cryptocurrency once and get $ 338351 passive income per month: https://tiny.pl/tl1q5?&rbrti=i3Um2CK
How to get 0,931 BTC per week: https://v.ht/G2WkL?L3YWcDi
What's the simplest method to earn $53213 a month: https://v.ht/m1JYbb?KcmFczSqTL
How to earn on investments in Cryptocurrency from $ 2871 per day: https://soo.gd/MeaoG?&okhsw=TcBchaLl89
Forex + Bitcoin = $ 7181 per week: https://v.ht/hjGCX?aqjmGXBBM
Exactly how would you use $53745 to make more money: https://v.ht/OuYm5Z?&sgbto=NRo2Esxo
Which wallet should you transfer to $914326,98: https://is.gd/WfHUIx

Comment about this article, ask questions, or add new information about this topic:




Top Document: MH Frequently Asked Questions (FAQ) with Answers
Previous Document: Acknowledgments
Next Document: babyl2mh.pl

Single Page

[ Usenet FAQs | Web FAQs | Documents | RFC Index ]

Send corrections/additions to the FAQ Maintainer:
Bill Wohler <wohler@newt.com>





Last Update March 27 2014 @ 02:11 PM