← Back to branch summary

~ubuntu-branches/ubuntu/vivid/topal/vivid

« back to all changes in this revision

Viewing changes to attachments.ads

  • Committer: Bazaar Package Importer
  • Author(s): Phil Brooke
  • Date: 2008-07-18 07:57:38 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 dapper)
  • Revision ID: james.westby@ubuntu.com-20080718075738-1jbtf92kurbkezdz
Tags: 62-1
* New upstream release.  This includes the necessary upstream work
  to make it work properly again.
* Move from contrib to main (Alpine is in main).
* Fix standards-version to 3.8.0.
* Update gnat dependency and add more architectures.
* Update debian/compat.
* Update description.
* Update copyright file.
* Update depends/recommends/suggests.
* Patches are installed in their own directory.

Show diffs side-by-side

added added

removed removed

Lines of Context:
attachments.ads
1
 
--
2
 
--
3
 
--
4
 
--
 
1
-- Topal: GPG/GnuPG and Alpine/Pine integration
 
2
-- Copyright (C) 2001--2008  Phillip J. Brooke
 
3
--
 
4
-- This program is free software: you can redistribute it and/or modify
 
5
-- it under the terms of the GNU General Public License version 3 as
 
6
-- published by the Free Software Foundation.
 
7
--
 
8
-- This program is distributed in the hope that it will be useful,
 
9
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
 
10
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 
11
-- GNU General Public License for more details.
 
12
--
 
13
-- You should have received a copy of the GNU General Public License
 
14
-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
5
15
 
6
16
with Globals; use Globals;
7
17
 
24
21
 
25
22
   Attachment_Not_Found : exception;
26
23
 
27
 
   -- Add an attachment key to the list....
 
24
   -- Add an attachment to the list....
28
25
   procedure Add_Attachment (Filename  : in     UBS;
29
26
                             List      : in out Attachment_List);
30
27
 
33
30
   procedure Remove_Attachment (Filename  : in     UBS;
34
31
                                List      : in out Attachment_List);
35
32
 
36
 
   -- List the keys and edit them as appropriate (include removing an
 
33
   -- List the attachments and edit them as appropriate (include removing an
37
34
   -- attachment or adding a new one.
38
35
   procedure List (List : in out Attachment_List);
39
36
 
40
 
   procedure Empty_Attachmentlist (List : in out Attachment_List);
 
37
   procedure Empty_Attachment_List (List : in out Attachment_List);
41
38
 
42
39
   function Count (List : in Attachment_List) return Natural;
43
40
 
44
41
   -- This function takes the original Tmpfile, and (in the case of a
45
 
   -- non-empty attachment list) replaces it with a multipart/mixed
46
 
   -- structure.
 
42
   --  non-empty attachment list) replaces it with a multipart/mixed
 
43
   --  structure.  The attachments in List are base64 armoured.  We
 
44
   --  assume that Tmpfile has already been appropriately
 
45
   --  processed....  This is safe to call if List is empty.
47
46
   procedure Replace_Tmpfile (Tmpfile           : in String;
48
 
                              List              : in out Attachment_List;
49
 
                              Internal_Mimetype :    out UBS);
 
47
                              List              : in Attachment_List);
50
48
 
51
49
private
52
50